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Deutscher Zeichensatz: 
Selbstverständlich können 
Sie mit Umlauten schrei- 
ben, die auch auf dem 
Bildschirm Ihres > 
Commodore erscheinen! 
ab Seite 6 


Druckeranpassung: 
Manche Billigdrucker 
„Verstehen‘’ nicht deutsch 
— drucken also keine 
Umlaute — andere dage- 
gen benötigen dafür den 
ASCII-Code. Wir schaffen 
Abhilfe abSeite 9 


Drucker-Utility: 
Oft widersteht die einge- 
baute Plus 4-Software 
allen Versuchen, deutsche 
Zeichen auszudrucken. 
Unser Utility macht es 
trotzdem möglich 

ab Seite 12 
Formatierte Ausgabe: 
Ein Basiclisting auf dem 
Bildschirm ist 40 Zeichen 
breit, gedruckt wird es 
aber mit 80 Zeichen/Zeile. 
Nix stimmt mehr. Unser 
Utility zwingt sowohl . 
Computer als auch 
Drucker, exakt soviel An- 
schläge auf dem Bild- 
schirm wie auf dem 
Drucker auszugeben, wie 
Sie anordnen! 

ab Seite 15 
Text 16: 
Textverarbeitungspro- 
gramme sind in der Regel 
teuer und fressen Speicher- 
platz, von dem in C 16 
und 116 sowieso zuwenig 
zur Verfügung steht. 
Unser Textprogramm 
braucht ganze zehn KB, 
läßt also noch ausreichend 
Speicherplatz für Ihre 
Briefe übrig 

ab Seite 18 
Disc-Monitor: 
Daten auslesen, verändern, 
wieder zurückspeichern, 
kein Problem mit diesem 
Programm abSeite 24 


Diskeditor: 

Nützliches Werkzeug, um 
den Überblick über die 
ständig wachsende Zahl 
von Disketten zu 
behalten ab Seite 30 


Vokabel-Trainer: 
Bis zu 120 Vokabeln kön- 
nen hier eingegeben, ver- 
waltet und verändert 
werden. Ein nützliches 
Hilfsmittel für den 
Fremdsprachen-Unter- 
richt ab Seite 34 
Checksummer: 
Keine Probleme mit dem 
Vertippen mehr. Unser 
Checksummer sagt sofort, 
wo der Fehler liegt 

ab Seite 39 


Foto: 
Für den engagierten 
Fotografen. Nimmt das 
lästige Rechnen ab 

ab Seite 40 


Kaufmann: 
Schreiben Sie Ihre Rech- 
nungen, Mahnungen, 
Adressen — selbstverständ- 
lich auch Aufkleber — 
oder Lieferscheine mit 
diesem Programm 

ab Seite 46 


Teledat: 
Verwaltet Ihre Telefon- 
datei, errechnet Telefon- 
kosten und kann noch 
einige Dinge mehr 

ab Seite 69 


AS BESTE AUSCW 
Samsneiband Nr, 1/88 
Di8A 14.80-D3 124-SFR 14.20 


Handelskalkulation: 
Rechnen wie die Buch- 
haltung eines Großkon- 
zerns. Ob Sie Preise, 
Gewinnspannen, Handels- 
margen oder sonstwas er- 
rechnen wollen: Hier er- 
fahren Sie, was eine Ware 
kostet — zum Beispiel, wie 
teuer das selbst entwickel- 
te Programm beim Ver- 
kaufen wirklich wird 

ab Seite 86 


Rechnung: 

Damit können Sie schon 

in einem Kleinbetrieb das 

lästige Rechnungswesen 

vereinfachen. Beinahe 

ein professionelles Werk 
ab Seite 112 


Minizeichen: 

Bis zu 64 Zeichen in einer 
Zeile auf dem Bildschirm? 
Jetzt funktioniert es, mit 
unserem Minizeichen- 
Listing ab Seite 146 


Mathemax: 

Das Umrechnen einer 
Bezugsgröße in eine 
andere, ob Kraft, Tempe- 
ratur, Geschwindigkeit 
und was dergleichen Zah- 
lenwerte mehr sind — 
dieses Programm schafft 
esspielend ab Seite 125 


SPIELE 


Rollerball: 
Monster in einem Leiter- 
labyrinth rollen Ihnen 
Kugeln entgegen. Auf in 
den Kampf gegen die 
feindlichen Biester 
ab Seite 
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Wallbreaker: 
Dem Klassiker „Break 
out’ nachempfunden. 
Die Spielregeln können 
als bekannt vorausge- 
setzt werden 

ab Seite 59 


Bingo: 
Mit Millionengewinnen 
jongliert derzeit eine 
deutsche Zeitung bei 
ihrem Superbingo. Com- 
puterfreaks haben schon 
nachgewiesen, daß da 
mehr Bluff als wirkliche 
Gewinnchancen dahinter- 
steckt. Unser Spiel ver- 
spricht keine Millionen, 
aber gute Unterhaltung 
ab Seite 63 


Fire-Copter: 

Ein Vulkan bricht aus, 
die Erde erbebt. Angst- 
voll suchen Eingeschlosse- 
ne nach Rettung. Sie 
sollen gleichzeitig den 
brennenden Vulkan lö 
schen und die von Lava- 
massen eingeschlossenen 
Menschen retten. Das 
geht nur noch per 
Rettungshubschrauber, 
dessen Pilot Sie sind. 

Viel Spaß ab Seite -75 


Poison: 

Break out einmal umge- 
kehrt. Diesmal versucht 
der Computer, eine Mauer 
zu zerstören und Sie müs- 
sen dies verhindern, denn 
dahinter steckt eine 
Flasche mit tödlichem 
Gas. Und wenn die ge- 
troffen wird, sterben Sie — 
auf dem Bildschirm 
natürlich ab Seite 80 


Horse: 
Haben Sie Tron, den 
ersten Computerfilm, ge- 
sehen? Dann können Sie 
erahnen, was bei Horse 
auf Sie wartet. Locken 
Sie den Gegner in die 
Falle, aber Vorsicht... 
ab Seite 84 


Telemühle: 

Endlich ein Gesellschafts- 
spiel, das das schon legen- 
däre Vorbild vergessen 
läßt, denn Telemühle ist 


besser ab Seite 89 


Arrow: 

Das Spiel für Bogen- 
schützen. Treffen Sie ins 
Schwarze. Denn nur so 
kommen Sie in den 


nächsten Level 
ab Seite 95 


Börse: 
Der „schwarze Montag‘' 
vom Oktober 1987 ist 
noch in aller Gedächtnis. 
Hier können Sie erfahren, 
wie eine Börse funktio- 
niert und wieso Kurse 
plötzlich stürzen — oder 
steigen. Dieses Spiel 
führt Sie ins Börsenge- 
schehen ein, nur: Es 
kostet lediglich Spielgeld. 
Einfach mal spekulieren 
ab Seite 97 


Mastermind: 

Knacken Sie den Code! 
Ihre Kombinationsfähig- 
keit wird auf eine harte 
Probe gestellt, denn ganz 
so einfach ist es nun auch 
nicht, alle Farben in der 
richtigen Reihenfolge ein- 
zuordnen abSeite 101 


Baracuda: 
Selbstverständlich darf 
ein Adventure auch nicht 
in unserem großen 
Sammelheft fehlen. Hier 
eines der besten | 

ab Seite 105 


Heros: 
Sie verfügen über einen 
Hubschrauber, zehn 
Stunden Zeit und fünf 
Kilo Nahrung, um von 
einem Waldbrand einge- 
schlossene Forstarbeiter 
zu retten. Als Befehls- 
haber einer Spezialein- 
heit gilt es jetzt, sorg- 
fältig zu planen... .. lassen 
Sie sich überraschen 

ab Seite +19 


Lotterie: 
Sie müssen Karten kaufen 
und gegen den Bankhalter 
spielen. Verachtfachen 
Sie Ihren Einsatz 

ab Seite 130 


Robert: 
Keine ganz leichte Auf- 
gabe: Ihr Roboter muß 
Berge anstreichen. Da- 
gegen haben jedoch die 
dort wohnenden Berg- 
völker etwas und 
schmeißen mit harten 
Gegenständen 

ab Seite 135 


Puzzleword: 

Ein ungewöhnliches Spiel, 

mit dem vor allem die 

Tüftler und Strategen 

auf ihre Kosten kommen 
ab Seite 139 


REPORT 


ON COMMODORE -"H- 


REPORT 


am überlegen: 
‚ommodore — C 16, 
ıen mehr. 
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Es ist geschafft: In mehr als ein- 
jähriger Arbeit haben unsere Exper- 
ten für Sie die schönsten selbst- 
programmierten Spiele, die besten 
Anwenderprogramme für die soge- 
nannten „kleinen Commodores”‘ in 
diesem Sammelband zusammen- 
gestellt. Noch einmal geprüft, noch 
einmal getestet und alle Fehler, 

die auftreten konnten, ausgemerzt. 
Wir hoffen, eine gelungene 
Mischung aus Anwender-Program- 
men, Spielen, Utilities gefunden zu 
haben. Für Sie und Ihren Commo- 
dore. Und es ist gleichzeitig auch 
ein Lehrbuch geworden. Ein Lehr- 
buch für alle Basic-Programmierer. 
Unterhaltsam, leicht verständlich 
und voll mit Tips und Tricks. 

PS: Wollen Sie nicht alle Program- 
me selbst abtippen: Unser Kassetten- 
und Disketten-Service steht selbst- 
..Nerständlich zu Ihrer Verfügung. 3» 


TIPS & TRICKS 


DEUTSCHER 
ZEICHENSATZ 


FÜR DEN C16/116/ 


PLUS A MIT 
DRUCKER-UND 
TASTATUR- 
ANPASSUNG 


Das Problem ist ebenso alt wie bislang 
unbefriedigend gelöst: Mangels fehlendem deutschen 
Zeichensatz auf den Commodore-Computern 
erscheinen auf dem Bildschirm wirre Zeichen statt der 
korrekten Ü oder Ä und auch nicht jeder Drucker 
spielt mit. Hier eine Lösungsmöglichkeit 


Wenn Sie einen Drucker 
mit deutschem Zeichen- 
satz besitzen, ob dieser 
nun Commodore oder 
sonstwie heifst, mit die- 
sem Programm bleiben 
keine Wünsche mehr of- 
fen. Vielfältige Anpas- 
sungsmöglichkeiten er- 
lauben Ihnen nicht nur 
ein unbeschwertes 
Schreiben von deutschen 
Umlauten. Wenn Ihr 
Drucker weitere Zeichen 
kennt, so können Sie ihm 
auch diese abverlangen, 
ohne auf sonstige ASCII- 
Zeichen wie “@L#17<>“ 
verzichten zu müssen. 
Wenn Sie allerdings zu 
denjenigen gehören, deren 
Drucker zwar keinen deut- 
schen Zeichensatz besitzt, 
jedoch grafikfähig ist, so 
kann Ihnen zwar gehol- 
fen werden, jedoch wird 
dies noch einige Zeit 
dauern, bis ein Pro- 
gramm dafür geschrieben 
ist. 

Seitdem ich meinen deut- 
schen Zeichensatz habe, 
ist mir Script/Plus die 
liebste Textverarbeitung 
geworden, obwohl mir 
noch weitere Textver- 
arbeitungen zur Ver- 
fügung stehen. 

Die eine stürzt bisweilen 
ab, die andere nimmt 
Tastendrucke, welche zu 
schnell aufeinanderfol- 
gen, nicht an. Die deut- 
schen Umlaute bringe ich 


nun sogar mit der einge- 
bauten Software des 
Plus4 auf Bildschirm und 
Drucker. Jedoch kann es 
hier sein, daß nicht jeder 
Drucker mitmacht, weil 
nicht jedes Zeichen von 
der Software angenom- 
men wird. 


ANPASSUNGSFÄHIG 
WIE EIN CHAMALEON 


Das Zeichenprogramm 
besteht aus den drei 
Abschnitten Anpassung, 
Routinensammlung 

und Installation. 
Besonders interessant ist 
der Abschnitt „Anpas- 
sung‘, weil Sie in diesem 
Ihre individuellen An- 
passungen vornehmen 
können. 


ZEICHENSATZ-— 
ADRESSE 
VERSCHIEBBAR 


Der Zeichensatz ist in 
Schritten von I Kilobyte 
verschiebbar und belegt 
einen Speicherbereich 
von 2 Kilobyte. Das er- 
ste Kilobyte beinhaltet 
den Grafikzeichensatz, 
das zweite den Kleinbuch- 
stabenzeichensatz. Für 
Script/Plus haben wir in 
Zeile 135 die Zeichen- 
satzadresse auf 12 Kilo- 


Byte ($3800/14336) ge- 
legt. Wenn wir einen C16 
mit Erweiterung oder ei- 
nen Plus4 besitzen, kön- 
nen wir auch 30 Kilobyte 
($7800) wählen. Im Be- 
reich über $8000 liegt 
Script/Plus, so daß-uns 
dieser nicht offen steht. 
Wenn wir mit einem an- 
deren Programm zusam- 
menarbeiten, müssen wir 
eventuell den Zeichensatz 
an eine andere Adresse 
legen, damit dieser nicht 
mit dem Programm oder 
sonstigen Daten kolli- 
diert. Für die eingebaute 
Textverarbeitung des 
Plus4 eignet sich die 
Adresse 60 Kilobyte 
($F000). 


BASICENDE VERLEGEN 


Wenn wir den Zeichen- 
satz hinter ein Basicpro- 
gramm legen und den 
Basic-Bereich nicht ein- 
schränken, so ist es mög- 
lich, daß Basicvariablen 
plötzlich beginnen, unse- 
ren Zeichensatz zu über- 
schreiben. Wenn wir die- 
ses verhindern wollen, so 
brauchen wir nur das 

“‘n“ in Zeile 155 durch 
ein “j‘“ zu ersetzen. 

Wenn es Platzprobleme 
gibt, so kann man den 
Grafikzeichensatz opfern 
und auch per Hand das 
Basicende festlegen, in- 
dem man die entsprechen- 
den Werte in die Speicher- 
stellen $35-$36 (53— 
54) schreibt. 


TASTATUR- 
ANPASSUNG 


Es gilt nun, dem Drucker 


zum richtigen Code zu 
verhelfen. Das Zeichen, 
welches der Computer per 
Tastendruck bekommt, 
gilt es entsprechend aus- 
zutauschen. Dieses kann 
gleich bei der Eingabe ge- 
schehen, indem wir das 
im Tastaturpuffer zu- 
letzt abgelegte Zeichen 
flugs durch das richtige 
ersetzen, bevor der Com- 
puter überhaupt in der 
Lage ist, dieses dem Puf- 
fer zu entnehmen. Wir 
tun dies im Zuge des Sy- 
steminterrupts, so daß 
dieses Verfahren auch 
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funktioniert, wenn der 
Programmierer der Soft- 
ware, für welche wir den 
geänderten Zeichensatz 
benützen wollen, einfach 
die Kernal-Routinen un- 
terlaufen hat. Da Letzte- 
res bei der eingebauten 
Software des Plus4 der 
Fall ist, so schreiben Sie 
bitte ein “t“ in die Zeile 
200, wenn Sie diese Soft- 
ware benützen wollen. 
Ob die eingebaute Soft- 
ware allerdings gerade die 
Zeichen auch annimmt, 
welche Ihr Drucker benö- 
tigt, um die deutschen 
Umlaute auch auszugeben, 
ist Glücksache. Der Com- 
modore MPS 1000 mach- 
te jedenfalls mit. Wenn 
Ihr Drucker dieses nicht 
tut, und Sie sich auch kei- 
nen anderen anschaffen 
wollen, so wechseln Sie 
am Besten die Textver- 
arbeitung. Beieiner or- 
dentlich programmierten 
können Sie noch eine wei- 
tere Anpassungsart fah- 
ren, nämlich die Drucker- 
anpassung. 


DRUCKERANPASSUNG 


Wählen Sie ““d“ in Zeile 
200, so wird das eingege- 
bene Zeichen so, wie es 
von der Tastatur kommt, 
vom Computer angenom- 
men. Der Austausch er- 
folgt erst bei der Drucker- 
ausgabe. Jeder Drucker 
mit deutschem Zeichen- 
satz und seriellem An- 
schluß ist nun verwend- 
bar. Allerdings kann es 
sein, daß die verwendete 
Software nicht jede Taste 
annimmt. Wenn Sie mit 
jemandem, der dieselbe 
Textverarbeitung benutzt 
wie Sie, Texte auf Dis- 
kette austauschen, so gibt 
es Probleme mit den Um- 
lauten, sofern der andere 
eine andere Tastenbele- 
gung vorzieht. Jedoch gibt 
es noch einen Ausweg 

aus diesem Dilemma. näm- 
lich die Kombination 

von Tastatur- und Druk- 
keranpassung. 


SPEZIALANPASSUNG 
Mit der Tastaturanpas- 


sung können Sie dem 
Computer bei beliebigem 


nö —— 


TIPS & TRICKS 


Tastendruck jedes belie- 
bige Zeichen unterjubeln. 
Sie brauchen nur dafür zu 
sorgen, daß der Compu- 
ter ein Zeichen erhält, 
welches die Software an- 
nimmt. Am Besten ist ein 
geeigneter Grafik-Code, 
da man in diesem Falle’ 
kein Textzeichen zu op- 
fern braucht. Wir haben 
in den Zeilen 360-365 
bereits eine Anpassung 
vorgenommen, die bei 
Script-Plus funktioniert. 
Sie sollten diese, sofern 
Sie Script-Plus verwen- 
den, nicht verändern, da, 
wenn jeder die gleichen 
Codes verwendet, auch 
ein Datenaustausch auf 
Diskette oder Kassette 
möglich ist, ohne daß 
Ihre Tastaturbelegung 
und Druckeranpassung 
hierbei eine Rolle spielen. 
Die Spezialanpassung ist 
die komfortabelste und 
setzt außerdem zumin- 
dest für Script/Plus ei- 
nen Standard. Sie ist da- 
her, sofern verwendbar, 
den anderen Anpassun- 
gen vorzuziehen. 


DRUCKERCODES 


Damit Ihr Drucker deut- 


sche Umlaute überhaupt 
von sich geben kann, 
müssen Sie ihn auf deut- 
schen Zeichensatz, meist 
mittels Dipschalter, um- 
stellen. Wie das gemacht 
wird, steht in Ihrem 
Druckerhandbuch. Dort 
finden Sie des weiteren 
eine Tabelle, aus welcher 
hervorgeht, welche ASCII- 


Code der Drucker braucht, 


um die gewünschten Um- 
laute darzustellen. Wenn 
diese Werte von denen 

in den Zeilen 220-225 
abweichen, so tragen Sie 
dort bitte die richtigen 
ein. 


ZEICHENMUSTER 


In den Zeilen 245-340 


ist vermerkt, wie die Zei- 
chen aussehen. Das Bit- 
muster können Sie er- 
rechnen, wenn Sie die an- 
gegebenen Dezimalzah- 
len in Dualzahlen um- 
rechnen. Sie brauchen 
keine Änderung der Zei- 
chenmuster vornehmen. 


SPEZIALCODES 


Die Spezialcodes spielen 


nur eine Rolle für die 
Spezialanpassung, sie 
sind auf Script/Plus ab- 
gestimmt. Ändern Sie 
sie bitte nicht für Script/ 
Plus, damit wir einen 
Standard haben. Falls 
für eine andere Soft- 
ware doch ein Umstellen 
erforderlich sein sollte, 
so brauchen Sie nur einen 
x-beliebigen Code hier 
einzusetzen, der von der 
Software angenommen 
wird. 


WAS SIE ANPASSEN 


MÜSSEN 


Bei Script-Plus nur die 
Druckercodes. Bei der 
eingebauten Software des 
Plus4 zusätzlich die Zei- 
chensatzadresse und die 
Anpassungsart. 


WAS SIE ANPASSEN 


SOLLTEN 


Empfehlenswert ist eine 
andere Tastenbelegung, 
ich z.B. nehme beim 
Plus4 die Tasten “@L+“ 
für die Umlaute her, da 
diese so schön beieinan- 
derliegen. In Verbindung 
mit der Shifttaste bekom- 
me ich die großen Um- 
laute. 


WAS SIE ANPASSEN 
KÖNNEN 


Sie sind durchaus nicht 
auf deutsche Umlaute be- 
schränkt. Sie können, 
man staune, sogar noch 
ein paar Zeichen hinzu- 
nehmen. Sie können na- 
türlich auch welche weg- 
nehmen. Wenn Sie aller- 
dings zuviele neue Zei- 
chen hinzufügen, kann es 
Kollisionen mit dem Pro- 
gramm geben. Mein Pro- 
gramm ist nicht dazu ge- 
dacht, eine vollständige 
Umcodierung der Tasta- 
tur vorzunehmen, son- 
dern beschränkt sich auf 
das Nötige. Um es kurz 
und einfach zu halten, 
wurde auf eine Anpassung 
mit Menüführung verzich- 
tet. Daher ist vielleicht 
das Anfügen eines neuen 


Zeichens auch etwas um- 
ständlich. Auch wenn Sie 
nur eine Taste umbele- 
gen wollen, ist es nötig, 
auch den Druckercode 
anzupassen, welcher im 
Normalfall mit dem 


‚ASCII-Code des Commo- 


dore Computers identisch 
sein sollte. 


ANPASSUNGS- 
VORSCHLÄGE 

Plus4 C16 

ä: [@] ä: [@] 
ö:[L] ö: [+] 

ü: [*] ü: [<] 
ß:[t] ß:[t] 
Ä:[shift] [@] Ä:[shift] [@] 
Ö:[shift] [L] Ö:[shift] [+] 
U:[shift] [*]  Ü:f[shift] [-] 
@:[cbm] [@] @ [ebm] [@] 
t:[cbm] [£] E£:[£] 

=: [m] n: [m] 

*: [cbm] [*] +: [cbm] [+] 


Mit [cbm] ist hierbei die 


Commodore-Taste ge- 
meint. 


WEITERE 
ZEICHENMUSTER 


Für diese Anpassung sind 
noch zusätzliche Zeichen- 
muster erforderlich. 

Plus 4: 

34] data 0,102,60,255 
342 data 60, 102,0,0:rem* 
C16: 

341 data 0,24,24,126 
342 data 24,24,0,0:rem+ 
343 data 0 ‚0,0,126 

344 data 0,0,0,0:rem — 


DRUCKER- UND 
SPEZIALCODE- 
ERGÄNZUNG 


Plus4: 
226 data 42 
366 data 42 
C16: 
226 data 43,45 
366 data 43,45 
Alfons Mittelmeyer 


COMMODORE 


HOTLINE 
Mittwochs 


15.00 


I9.00 Uhr 


Tel: (089) 129 80 18 


rem by a.mittelmeyer == 
rem = 
rem =- 
rem basic v3.5 - == 


rem c16/116/plus4 == 


rem BREI 


rem anpassung 
rem BRRRRHRRRSRRRRRHRRRRE 


rem neue zeichensatz- 
rem adresse in kilobyte 
rem ------------ 


Tem =-===-=--=-=-=-==5====Sm mem 


ren Ten 


rem tasten-, drucker-, 
rem spezialanpassung t/d/s 
rem -=-------=-- 2 


data 251,252,253,254,219 
data 220,221,240,237,222 


data 9, 102,68,6 

data 62,182,62,8: rem "ae 
data ®, 182,68, 192 

data 1@2,182,60,8: rem "oe 
data 8,182,8,102 

data 192,102,62,8: rem "ue 
data 9,68, 102,124 
data192,182,124,96:rem "ss 
data 192,24,68B, 182 

data 126, 102, 182,8:rem "Ae 
data 192,68, 182,182 

data 192,1902,680,8: rem "Oe 
data 192,8,182,182 

data 102,192,60,8: rem "Ue 
data 69, 182,118,118 

data 96,98,68,8 : rem "@ 
data 12,18,48,124 

data 48,98,252,0 : rem "\ 
data 98,8,3,62 


rem =============2 m 
rem spezialcodes 

ren een 
data 176,191,177,171,178 
data 174,179,64,92,222 


rem HRRRRSRRRARRRHRRRRRRRE 


rem routinensammlung 
ren HRRRRRHRSHHRHHSSRRRRREGE 


data 168,8,162,8,189,0,208 
data 157,0,48,232,208,247 
data 238,62,1,238,65,1,136 
data 208,238,96 


rem == 
data 142,55,1, 166, 153,224 
data4, 288, 15, 162,18,221,96 
data 1,240,5,282,2808,248 
data 240,3,189,106,1,174 
data 55,1,76,75,236, 169 
data 251,45,18,255, 141,18 
data 255,76,66,286, 128, 169 
data 86, 141,18,3,169,1,141 
data 19,3,88,96 

rem Fa, 72 
rem tastenroutine 

rem ---------------------- 
data 32,191,287,32,205,286 
data 165,251,72,169,8,133 
data 251,8,88,32,17,219 
data 166,239,240,23,189,38 
data5, 162, 18,221,111,1,248 
data 5,292,288,248,240,8 
data 189,121,1,166,239, 157 
data 38,5,169,251,45,18 
data 255, 141,18,255,76,84 
data 296, 128,169,56, 141,18 
data3, 169,1,141,19,3,88,96 


rem HRRRARRHRRRRRRRRHRSRRN 


rem installation 
rem PHRRAHRRRRHRHRSSISRRREN 


rem zeichensatz 
rem verschieben 
rem ---------- 727 - 


readx:x=x*4:restore 485 
for i=312 to 334 
reada:pokei,a:next 

poke 321,x:5sys312:b=x#256 
rem =================22=>=5 
rem d- oder t-version ? 
BEN me 


Un 


ZEICHENSATZ 


638 
635 
648 
645 
658 
655 
668 
665 
678 
675 
688 
685 
698 
695 
788 
785 
710 
715 
728 
725 
738 
735 
748 
745 
758 
755 
768 
765 
778 
775 
788 
785 
798 
795 
888 
885 
818 
815 
828 
825 
838 
835 
848 
845 
858 
855 
868 
865 
878 
875 
888 
885 
898 
895 
988 
985 
918 
915 


restore2d8:read d$ 
d={ d$="d") :s=( d$="s") 
Tem ->===-=-=-===- === ==22mmmmeme 


von ne 
restore 175:readx$ 

n=len( x$) 

restore 228:if d then 698 
if s then restore 368 
x$="":fori=i1 ton 
reada:x$=x$+chr$(a) :next 
goto 695 

restore175:readx$ 

restore 245:for j=1 ton 
scnelr:printmid$(x$,j,1) 
a=peek( 3872) :ad=8*a+1924+b 
for i=8 to 7:reada 
pokead+ti,a:next:nextj 

rem =================2=2=2= 


rem -—- === 
restore175:readx$ 

if d then 795 

rem ====================== 
rem tastenroutine 

rem ---------------------- 


restore 588: fori=312t0388 
reada:pokei,a:next:c=367 
poke 358, 111+n:poke338,n 
goto 838 

rem ra-annanzassassaane 


rem es 
restore448:for i=312t0365 
reada:pokei,a:next:c=352 
poke 322,n:poke334,96+n 
poke 894,56:poke 895,1 

rem ====================5>5 


ren ==>=>--- nn 
ad=65299: restore228: sysc+1 
poke ad,(peek(ad)and3)orx 
fori=1to n:a$=mid$(x$,i,1) 
pokec+ti,asc( a$) :next 

if s then restore 368 

for i=c+tn+1 to c+n+n 
reada:pokei,a:next 

if not s then 945 

rem ===========22=====02=== 


ren Sr 
restore 448 

fori=1792 to 1821 
reada:pokei,a:next 

restore 228. 

for i=1822 to 1821+n 
reada:pokei,a:next 
poke1814,29:poke1815,7 


<co> 


<ob> 
<ne> 


<ag> 
<cl> 
<bk> 
<fd> 
<gi> 
<nf> 
<fp> 
<lo> 
<md> 
<pb> 
<en> 
<ae> 
<mp?> 
<fg> 
<gj> 
<il> 
<kh> 
<cj> 
<oo> 
<ai> 
<og> 
<nm> 
<ie> 
<de> 
<11> 
<kp> 
<gc> 
<hc> 
<ne> 
<io> 
<ce> 
<no> 
<hp> 
<gl> 
<do> 
<hk> 
<kd> 
<hn> 
<bl> 
<dh> 
<ko> 
<op> 
<gb> 
<di> 
<lg> 
<pi> 
<oo> 
<cg> 
<ej> 
<ol> 
<gp> 
<di> 
<ga> 
<im> 
<dc> 


928 
925 
938 
935 
948 
945 


958 
955 


968 
965 
9798 
975 
988 
985 
998 
995 


Anpassung 
fur 
C 16/116/P a J 


Während die Billigdrucker keinen. deutschen Zeichen- 


poke 1882,n:poke1884, 111+n 
poke 884,8:poke 885,7 


rem --------------- 
restore 155:readx$ 

ifx$="n" then end 

poke 54,x:poke 56,x 

poke 53,8:poke 55,8 

rem =============2======20== 
rem 812277 bytes memory 
rem 884465 bytes program 
rem 888878 bytes variables 
rem 880165 bytes strings 
rem 887577 bytes fre(®) 
rem ============2===2=2===202 


Mi 


z 


<ai> 
<gb> 
<ka> 
<mk> 
<hh> 
<lb> 
<ne> 
<gm> 
<og> 
<ge> 
<oc> 
<pf> 
<an> 
<mc> 
<kb> 


<lp> 


Drucker- 


satz besitzen, versteht manch teurer Drucker keinen 
Commodorecode, sondern braucht ASCII. Beiden 
kann geholfen werden. 


WEITERE ANPASSUNGSPROGRAMME 


Auch mit dem Programm „Zeichensatz C 16‘ sind 
noch nicht alle Probleme gelöst. Hat man z.B. einen 
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Drucker, welcher ASCII-Code benötigt, und will die- 
sen in Verbindung mit Script-Plus betreiben, so 
stellt man fest, daß der eingebaute ASCII-Wandler 
die vorgeschlagenen Specialcodes verwirft. Die 
„ASCII-Wandler“-Programme lösen dieses Problem. 
Der „Sequenzdruck“ ermöglicht die direkte Nadelan- 
steuerung und läßt somit auch jeden grafikfähigen 
Drucker deutsche Umlaute zu Papier bringen. Es ist 
sogar möglich, mittels dieses Programmes zwischen 
verschiedenen Zeichensätzen hin und herzuschalten. 
Schließlich und endlich sind die beschriebenen Mög- 
lichkeiten dank der eingeschleusten Druckerutility 
(Schleus Plus4) nicht nur im normalen Betrieb bzw. 
mit Srcipt-Plus, sondern nun auch mit der eingebau- 
ten Software des Plus4 möglich. 


ASCII-WANDLER NR. 1 


Dieser ASCII-Wandler wird in Verbindung mit dem 
Programm ‚‚Zeichensatz C16‘ eingesetzt. Er kann 
ab Zeile 1000 in dieses Programm eingebunden wer- 
den, oder auch hinterher gesondert geladen und ge- 
startet werden. In letzterem Falle ist das end‘ in 
Zeile 950 durch ein “goto 1000“ zu ersetzen. 

Der ASCII-Wandler sorgt dafür, daf Groß- und Klein- 
buchstaben von A — Z den richtigen ASCII-Code 
erhalten. Wählen Sie in Verbindung mit Script-Plus 
nun bitte den CBM-Matrix-Printer. Beim Untersu- 
chen der Druckeranpassung von Script-Plus fanden 
wir folgende Sequenzen, die vor dem Text an den 
Drucker gesandt wurden: 


Nec Spinwriter: 21° 93 76 
L 


Esc ]J 
Qume, Diablo: 27 93 77 
Be J M 
Other: 27 31 13 


Es kann sein, daß Sie diese Sequenzen vor dem 
eigentlichen Text an den Drucker senden müssen. 


NEUES DRUCKPROGRAMM 


Ganz genauso wie der ASCH-Wandler Nr. 2 wird 

es in Verbindung mit dem Zeichensatzprogramm und 
der Spezialanpassung eingesetzt. Das alte Drucker- 
programm und auch die Druckercodes werden da- 
mit außer Kraft gesetzt. Die neuen Codes sind in 

die entsprechenden Datazeilen einzutragen. Dabei 

ist folgendes zu beachten: Das Ende einer Codese- 


quenz muß immer mit “°—1‘ markiert sein. 

In dem Listing „Sequenzdruck“ wurden die Codes 
für Commodore-kompatible Billigdrucker abgedruckt. 
Die deutschen Umlaute wurden im Grafikmodus 

in doppelter Dichte definiert. Sollte Ihr Drucker nur 
einfache Dichte zulassen, so müssen Sie sich Ihre 
Zeichen anders definieren. Der ‚„Drucker-Grafik- 
Editor‘‘, welcher in diesem Heft abgedruckt ist, hilft 
Ihnen dabei. Allerdings müssen Sie die dort in der 
Zeile 5000 vermerkten Hexzahlen erst noch in 
Dezimalzahlen umrechnen. Damit Sie auch mit ei- 
nem Drucker, welcher ASCII-Code braucht, die 
Möglichkeiten der neuen Druckerroutine ausschöp- 
fen können, gibt es noch einen weiteren ASCII- 
Wandler. 


ASCIH-WANDLER NR. 2 


Dieser ASCH-Wandler ist fast identisch mit dem vor- 
hergehenden. Der einzige Unterschied ist. dafs er 
mit der neuen Druckerroutine „Sequenzdruck“ ver- 
knüpft wird. Sie können sich nun Zeichen aus allen 
möglichen Zeichensätzen zusammenklauben oder 
sich eigene Phantasiezeichen selbst erschaffen. 
Grenzen setzt Ihnen nur der knapp bemessene 
Speicherraum des Anwenderbereiches und des Basic 
Pseudostacks. 


RS232-SCHNITTSTELLE 


Wenn Sie den Drucker über eine RS232-Schnittstelle 

betreiben, so ist eine kleine Änderung vorzunehmen. 

Wenn Sie am Programmende bei der alten Drucker- 

routine “poke 1798,2° einfügen, bzw. bei der 

neuen Routine “poke 1673,2“, so sollten die An- 

passungen auch mit dieser Schnittstelle möglich sein. 
Alfons Mittelmeyer 


SEQUENZDRUCK 


1888 rem sequenzdruck==========016 <fh> 
1818 rem (p) 88/87 commodore welt <pc> 
1820 rem ========================= cge> 
1838 rem by alfons mittelmeyer <ak> 
1848 rem <1h> 
1858 rem nur in verbindung mit <hj> 
1868 rem programm zeichensatz c16 <fg> 
1870 rem aus cw 8/87 und spezial- <al> 
1888 rem anpassung <hb> 
1898: rem sse==== 72-7 77 conb 
1188 rem druckercodes <ng> 


1118 rem ---------------- <kh> 
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1128 data 8,2,160,288, 133,288, 132, 1848 rem <1h> 
288, 133,184,192,128,128,128,15,-1 <ga> 1858 rem nur in verbindung mit <hj> 
1138 data 8,2,128,184,197,128,196, 10868 rem programm zeichensatz <fg> 
128,197,184,128,128,128,128,15,-1 <Ig> 1870 rem aus cw 8/87 und spe- <mc> 
1140 data 8,2,128,188,129,192,128, 1888 rem zialanpassung <aj> 
192,129,188,192,128,128,128,15,-1 <da> se EG re 
1158 data 8,2,128,248,132,138,129, ; 1188 ax=1638:restore1118 <ki> 
136, 193, 158, 192, 160, 128, 128, 15, -1 <dl> 1118 data 288,8029,281,817,288,885 <gk> 
1168 data 8,2,224, 145,168, 132,162, 1128 data 174,855,091,824,096,178 <be> 
132,168, 145,224, 128,128,128,15,-1 <be> 1138 data 841,127,201,865,848,812 <ic> 
117@ data 8,2,184,197, 128,196, 128, 1148 data 201,891,016,808,224,0088 <Iim> 
196, 128,197,184,128,128,128,15,-1 <oo> 1158 data 848,005,073,032,208,081 <nk> 
1188 data 8,2,188,193,128,192,128, 1168 data 138,174,855,801,076,075 <id> 
192,128, 193, 188,128, 128,128, 15,-1 <eb> . 1178 data 236 <ok> 
1198 data 64,-1 <fe> 1188 fori=axtoax+36:reada:pokei,a <dd> 
1200 data 92,-1 <oo> 1198 next <nh> 
1218 data 8,2,128,136, 128,252, 128, ed Br nn <fb> 
132,128,252,128,132,128,128,15,-1 <of> 1218 rem anpassung an alte <dn> 
1228 data 42,-1 <ip> 1228 rem druckroutine h <cl> 
1238 data 94,-1 <hg> VEU- FR ee Ren ger pers aeg <ib> 
1248 rem ---------------------Z--- <id> 1248 poke1812,6:poke1816, 162 <mj?> 
1258 rem tabellenerstellung <Im> 1258 poke1817,1:poke1818,234 <ii> 
1268 rem ----------------------- <hn> 1268 poke1828,94:poke1821,6 <ki> 
1278 restore1128:n=peek( 1882) <fg> 3278 DER FT SF 
1288 bs=1725:b=9: zg=8:x=zg+n+1 <mc> 
1298 fori=1ton:y=x:zg=zg+1:pokebs+ 
z8,Y <lc> 
13088 x=x+1:b=a:reada <mg> ASCIIWANDLER 2 
1318 ifa<>-Ithenpokebs+tx,a:goto138 
1) <1f> 1588 rem asciiwandler 2========616 <go> 
1328 pokebs+y,x-y-1:next <al> 1518 rem (p) commodore welt <if> 
1338 rem -----------=----- <ml> 1528 rem ====================22=== coj> 
1348 rem druckerroutine <ip> 1538 rem (c) alfons mittelmeyer <pf> 
1358 rem ------------------------- <ig> 1548 rem <kd> 
1368 ax=1667:fori=axtoax+58 <dl> 1558 rem nur in verbindung mit <aj> 
1378 reada:pokei,a:next <di> 1568 rem programm zeichensatz <no> 
1388 data 142,055,881,166, 153,224 <ed> 1578 rem aus cw 8/87 und spe- <ff> 
1398 data 084,288,44,162,8,221,123 <ce> 1588 rem zialanpassung, sowie <if> 
1408 data 881,240,885,282,288,248 <ef> 1598 rem sequenzdruck aus cw 18/87 <cn> 
1418 data 240,832,148,0854,881,189 <ki> 1608 rem ========================= <nb> 
1428 data 189,006,170,189,189,886 <bh> 1618 ax=1638:restore1628 <lo> 
1438 data 148,054,8801,168,232,189 <om> 1628 data 288,029,2081,817,208,085 <gk> 
1448 data 189,806,832,075,236,136 <bp> 16308 data 174,055,001,024,896,178 <be> 
1458 data 2808,246,172,854,881,174 <bc> 1648 data 841,127,281,865,048,812 <ic> 
1468 data 855,081,024,096,174,0855 <fe> 1658 data 2981,091,016,0088,224,0080 <Im> 
1470 data 9901,076,075,236 <ip> 1668 data 848,005,073,032,288,0881 <nk> 
1488 poke 1677,n:poke1679,111+n <cn> 1670 data 138, 174,055,881,276,875 <id> 
1498 poke 884, 131:poke885,6 <pl> 1688 data 236 <ok> 
1588 rem ======= en de ===>====== <ji> 1698 fori=axtoax+36:’reada:pokei,a <dd> 
17088 next <nh> 
EEE 1718 ven m <fb> 
1728 rem anpassung an neue <im> 
ASCIIWANDLER 1 1738 rem druckroutine <cl> 
i 1748 rem ------------------ <ib> 
1888 rem asciiwandler 1========016 <ik> 1758 poke1687,35:poke 1728, 162 <oo> 
1818 rem (p) commodore welt <ca> 1768 poke1721,1:poke1722,234 <ij> 
10820 rem === ===============7=====5 Cge> 1770 poke1724,94:poke1725,6 <ki> 
1838 rem (c) alfons mittelmeyer <ba> 1788 rem ==== e n d e ============ <hb> 
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EINGESCHLEUSTE 1 1:&zus:3en, ob bereit ein bestinimtes Ereienis 


DRUCKERUTILITY 


Die integrierte Software des Plus4 widersetzte sich bis- 
lang so manchen Anpassungsversuchen. Einige Drucker 
spielten gar nicht mit, viele druckten keine deutschen 
Umlaute. Ob eine andere Geräteadresse, Sekundäradres- 
se, direkte Nadelansteuerung oder ASCII-Wandlung er- 
forderlich ist, unser eingeschleustes Programm macht 
es möglich. 4 

Das Problem war bisher, daß die integrierte Software . 
des Plus4 nicht die normale Zeichenausgaberoutine 
verwendete. Da die Software in einem Modul unterge- 
bracht ist, war unsere Meinung vorerst, daß man da 
nicht rankäme. Das aber war ein Irrtum. Ein kleines 
Experiment brachte dieses an den Tag. 


INTEGRIERTE SOFTWARE IM HAUPTSPEICHER 


Rufen Sie doch einmal einfach die integrierte Soft- 
ware auf und verlassen diese durch einen Systemreset. 
Mit SYS4101 können Sie nun jederzeit wieder in die 
nun im Hauptspeicher befindliche Textverarbeitung 
gelangen. Die Softwareentwickler machten es sich ein 
wenig einfach und nutzten solche Dinge, wie die Um- 
stellung der Romkonfiguration, gar nicht aus. Das Pro- 
gramm wurde einfach in ein Modul gebrannt und mit 
einer Laderoutine versehen, welche das Programm wie- 
der in den Hauptspeicher bringt. So haben wir die Mög- 
lichkeit, Änderungen an der Modulsoftware vorzu- 
nehmen. 


DIE SCHNITTSTELLE ZUR DRUCKERAUSGABE 


Wie es sich durch den Gebrauch des Monitors zeigt 
(H1000 7FFF 20 D2 FF), kommt die Zeichenausga- 
beroutine recht häufig vor. Uns unverständlich bleibt 
allerdings, weshalb man diese Routine nicht auch für 
den Drucker hergenommen hat. Was noch bleibt, ist 
vielleicht die Routine CIOUT, die die Zeichenausgabe 
auf den Bus bewirkt. Und in der Tat kam diese Rou- 
tine tatsächlich in der Software vor, was sich durch 
“H1000 7FFF 20 A8 FF“ (JSR $FFAß) zeigte. Bei 
Adresse $3B5D war dieser Routinenaufruf aufzufin- 
den. Ein kurzer Test gab uns sogleich Gewißheit hier- 
über. Wir ersetzten den Routinenaufruf durch einen 
Break mit “A3B5SD BRK“ und harrten der Dinge, die 
nun kommen sollten. Nachdem wir das Programm 
mit “G1005‘ (SYS4101) gestartet hatten und uns an- 
schickten, bei eingeschaltetem Drucker etwas auf die- 
ses Gerät hinauszuschicken, kam es zu dem erwarte- 
ten Break. Wenn wir, anstatt des Breaks, den Aufruf 
einer von uns kreierten Routine an der Adresse $3B5D 
veranlassen, so steht unserer Druckeranpassung nichts 
mehr im Wege. 


EINSCHLEUSSPROGRAMM IM HINTERHALT 


Da dem Benutzer.wohl kaum zuzumuten ist, in die 
Textverarbeitung Zu gehen, diese durch ein Reset zu 
verlassen, in den Monitor zu gehen und ein Maschi- 
nenprogramm zu laden und zu installieren, suchten 
wir nach einer anderen Lösung. Wie veranlaßt man die 
Änderung eines Textverarbeitungsprogrammes, das 
erst zu einem späteren Zeitpunkt geladen wird? Die 
Idee ist folgende: Ein Programm lauert an einem 
geeigneten Platz und tritt nur zwischendurch bei be- 


in unserem Falle das Einladen der Textverarbeitung, 
eingetreten ist. Dieses wird durch Verbiegen eines ge- 
eigneten Sprungvektors und Einbinden des nämlichen 
Programmes bewirkt. Da bei unserem Zeichensatzpro- 
gramm aus CW 8/87 bzw. CW Spezial C16 6/87 bereits 
der Interruptvektor für andere Dinge hergenommen 
wurde, suchen wir uns einen anderen Sprungvektor. 

Es bieten sich an IBSOUT ($0324--$0325) oder 
IGETIN ($0328--$0329). Wir entschließen uns kurzer- 
hand für den ersteren. l 
Jedesmal, wenn nun ein Zeichen auf den Bildschirm 
ausgegeben wird, sieht unsere Routine in den Speicher- 
zellen $O3BSE-$03B5F nach, ob dort bereits der Auf- 
ruf von CIOUT installiert ist. Ist dieses der Fall, so 
bringt unser Einschleusprogramm hier den Aufruf 
unserer selbst kreierten Ausgaberoutine an und stellt 
den IBSOUT-Vektor wieder auf den ursprünglichen 
Wert. Ein Warten auf die Textverarbeitung ist ja nun 
nicht mehr nötig. 


SPEZIALANPASSUNG, ASCII-WANDLER UND 
DRUCK VON GANZEN CODESEQUENZEN 


Die uns bereits von Heft 8/87 und Heft 10/87 be- 
kannten Anpassungsarten können nun ebenso für die 
integrierte Software des Plus4 Verwendung finden. 
Wir brauchen nur, wo wir zuerst das Ausgabegerät 
($99/153) auf Nummer 4 (Drucker) abgefragt hatten, 
statt dessen die aktuelle Gerätenummer ($AE/174) 
überprüfen. Des weiteren ist die Zeichenausgabe 

auf Ausgabegerät (BSOUT/$FFD2) nunmehr durch 
Ausgabe auf den seriellen Bus (CIOUT/$FFA8) zu er- 
setzen. Mit drei Pokes ließ sich dies erledigen. Ob 
Epson oder sonstige Drucker,endlich war alles mach- 
bar. Bis auf eine Kleinigkeit: 


IBM UND VC 1520 MACHTEN NICHT MIT 


Uns rief bei unserem Mittwochstelefon ein Leser an 
und teilt uns mit, daß sein Commodore Printer- 
Plotter VC 1520 nicht in Verbindung mit der einge- 
bauten Software funktioniere. Woran das liegen könn-- 
te, darauf wußten wir keine Antwort. Als wir unseren 
Commodore MPS 1000 auf IBM umstellten, standen 
wir plötzlich vor dem selben Problem. Kein Zeichen 
ließ sich ausdrucken. Als wir, von Basic aus, den 
Drucker als Ausgabegerät eröffneten, stellte sıch her- 
aus, daß dieser absolut keine Sekundäradresse moch- 
te. Der VC 1520 führt auf Sekundäradresse 7 einen 
Druckerreset durch. Für Groß- und Kleinschreibung 
benötigt er die Nummer 6. Dies ist noch nicht alles. 
Erschwerend kommt außerdem hinzu, daß dieser 
Drucker, sofern keine hardwaremäßige Umschaltmög- 
lichkeit installiert wurde, normalerweise mit der Gerä- 
teadresse 6 angesprochen werden muß. Notwendig 
wäre also eine Anpassung, die dafür sorgt, daß, an- 
stelle von Gerätenummer 4 und Sekundäradresse 7, 
die benötigten Signale auf den seriellen Bus gelangen. 
Auf die Berücksichtigung der RS-232-Schnittstelle 
wollen wir jedoch verzichten. Statt dessen werden 

wir den RS-232-Input-Puffer, den wir bisher bei un- 
serem Zeichensatzprogramm noch unbehelligt ließen, 
für die Unterbringung der entsprechenden Routine 
verwenden. Wo nur finden wir den Anknüpfungs- 
punkt zur integrierten Software? 

Versuche, eine OPEN-Routine zu finden, die den Druk- 
ker als Datei eröffnen sollte, blieben ergebnislos. In 
Frage käme dann nur noch die LISTEN-Routine 
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($FFB1), mit welcher, durch Ausgabe der Gerätenum- 
mer auf den seriellen Bus, das entsprechende Gerät, 

in unserem Falle der Drucker, aktiviert wird. Die 
SECOND-Routine ($FF93) überträgt die Sekundär- 
adresse. Die Sekundäradresse auf 255 zu stellen, wie 
dies normalerweise geschieht, wenn keine angegeben 
ist, brachte keinen Erfolg. Weglassen der SECOND- 


LISTEN AND SECOND 


Routine brachte uns auch keinen Schritt weiter. 
Bestandteil der SECOND-Routine ist nämlich das Sen- 
den des ATN-Signals auf Pin3 des seriellen Buses. 

Wir finden diese Routine bei $EIFC und hoffen, daß 
neuere Betriebssystemversionen nichts daran geändert 
haben. Sonst könnte man anstelle der drei Bytes für 
diese Sprunganweisung auch direkt das Datenregister 
($01) manipulieren, was, mit Rücksprung, 7 Bytes 
Speicherplatz zur Realisierung benötigt. 


ERWEITERUNG DES EINSCHLEUSS- 
PROGRAMMES 


Mit dem HUNT-Kommando des Maschinenmonitors 
(H1000 7FFF 20 Bl FF) bzw. (H1000 7FFF 20 93 
FF) ist es kein Problem, die entsprechenden Adressen, 
die die Routinenaufrufe LISTEN und SEOND enthal- 
ten, ausfindig zu machen. Fündig wurden wir bei 
$3B38 und $3B3F. Unser Einschleusprogramm muß 
nun auch diese Aufrufe auf eine für sie bereitgelegte 
Routine umleiten, was für uns, da bereits einmal reali- 
siert, nun auch kein Problem mehr darstellt. 


ANPASSUNG AN SOFTWARE UND HARDWARE 


Da eventuell verschiedene Versionen der integrierten 
Software existieren könnten, die sich vielleicht gera- 
de in den entscheidenden Punkten unterscheiden, muß 
das Einschleusprogramm anpaßbar sein. 

Folgende Anpassungen können Sie vornehmen: 


110 RE Seesen ssonsssemeeesonnenenn 
120 DATA 3B5SD:REM CIOUT 
130 REM: Ss2==2ES52 Bm 
140 REM ANPASS.GERAET/SEK.-ADRESSE 
150 REM 
160 DATA 3B38:REM LISTEN 
170 DATA 3B3F:REM SECOND 
180 DATA4 :REM GERAETEADRESSE 
a 255 :REM SEKUNDAERADRESSE 
00 REM ---- - - -— -—-— — — - — - — — - — — - - — — — —— 
210 REM)J :REM ANPASSUNG J/N 
220: REM mu 
230 REM ANPASSUNGSARTEN 
240 REM ------—- -—- - - - - —- - - - — — . — — 
250 REM 0=NUR GERAETEANPASSUNG 
260 REM 1=SPEZIALANPASSUNG 
270 REM 2=MIT ASCIIWANDLER 1 
280 REM 3=MIT SEQUENZDRUCK 
290 REM 4=MIT ASCIHWANDLER 
300 REM 4 _ 
310 DATA 2 :REM WAHL 
320 REM 2332223533352 5 SS 3EE EEE BEE > 


Die DATAS können Sie entsprechend Ihren Bedürfnis- 
sen abändern. Mit ‘‘J“ in Zeile 210 können Sie eine von 
der integrierten Software abweichende Einstellung der 
Geräte- und Sekundäradresse realisieren. Dabei ist zu 
beachten, daß. sofern keine Sekundäradresse benötigt 
wird, diese mit 255 deklariert werden muß. In Zeile 


„Bitte lesen Sie weiter auf Seite 15 


310 geben Sie an, ob Sie lediglich die Spezialanpassung 
oder noch zusätzliche Anpassungen installiert haben. 


ENTKOPPLUNG UND ZUSAMMENFASSUNG 


Durch die vielen Zusatzprogramme hat sich unser Zei- 
chensatzprogramm zu einem ganz hübschen Brocken 
gemausert. 

Kassettenbenutzer werden über die Ladezeit vielleicht 
nicht gerade erfreut sein. Ein Nachteil des Programmes 
ist es auch, daß, will man nur einen Parameter, z.B. den 
Druckercode irgendeines Zeichens, ändern, muß 

man dennoch das Zeichenmuster kreieren und ebenfalls 
eine Tastaturbelegung vornehmen. Dies kostet wert- 
vollen Speicherplatz und strapaziert unnötig den An- 
wender. Daher ist eine Entkopplung von Tastaturbele- 
gung, Zeichenkreierung und Druckeranpassung ange- 
bracht. Dadurch würde aber der Lade- und Installa- 
tionsvorgang noch mehr in die Länge gezogen wer- 
den. Im Commodore Spezial C 16 1/88, die noch vor 
Weihnachten im Dezember erscheint, gibt es ein Pro- 


gramm, welches nach erfolgter Installierung des 


Zeichensatzes die gemachten Änderung in einem 
äußerst kurzen File zusammenfaßt, so daß auch Kas- 
settenbenutzer ihre helle Freude daran haben wer- 
den. Nach der Besprechung spezieller Anpassungen 
bei diesem oder jenem Drucker und Beseitigung der 
letzten verbliebenen Unklarheiten können wir dann 
beruhigt die Akten über dieses Thema schließen mit 
dem Bewußtsein, vielen unseren Lesern geholfen zu 
haben. Der C16 und Plus4 sind damit ihren Kinder- 
schuhen entwachsen und zu einem beachtlichen 
Schreibwerkzeug geworden, welches den Vergleich 
mit größeren Maschinen nicht im geringsten zu 
scheuen braucht. 


BEDIENUNGSHINWEISE 


Wenn Sie nun eine Geräteanpassung, z.B. für den 

VC 1520, auf dem keine Umlaute möglich sind, wol- 
len, so brauchen Sie natürlich nur das Programm 
“SCHLEUS PLUS4“, bei welchem Sie die Geräte- 
nummer und Sekundäradresse in den Zeilen 180 und 
190 entsprechend anpassen und eine Null in die Zeile 
310 eintragen müssen. Ansonsten laden und starten 
Sie bitte zuerst das Zeichensatzprogranım aus CW 
8/87, bei welchem Sie die Zeichensatzadresse auf 60 
(Kilobyte) in Zeile 135 umstellen müssen. In Zeile 
200 ist die dort von uns bereits vorgewählte Spezial- 
anpassung zu wählen. Die Specialcodes in den Zeilen 
360 sind durch andere zu ersetzen. Es bleibt nichts 
anderes übrig, als die eckigen Klammern, das eng- 
lische Pfundzeichen und den nach oben gerichteten 
Pfeil für die kleinen Umlaute (ä, ö, ü, ß) zu opfern. 
Dies wären also die ASCII-Codes 91 —94. 

Für die großen Umlaute verwenden wir die ASCII- 
Codes 219-221. Als Beispiel finden Sie eine Anpas- 
sung, wie sie für IBM in Frage käme, als Listing abge- 
druckt. Nach dem Starten des Zeichensatzprogram- 
mes können Sie, falls weitere Anpassungen nötig 


. sind, die in Heft CW 10/87 vorgestellten zusätzlichen 


Utilities „Sequenzdruck“ und „ASCII-Wandler‘“ eben- 
falls installieren. Danach laden Sie bitte unser Pro- 
gramm „Schleus Plus4“ und nehmen, je nachdem ob 
nun die Spezialanpassung blank, mit ASCII-Wandler 
1, mit Sequenzdruck, oder gar mit Sequenzdruck und 
ASCII-Wandler 2 vorliegt, den entsprechenden Ein- 
trag in Zeile 280 vor. Nachdem Sie dieses Programm 
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KT 


SCHLEUS PLUS4A4 


rem schleus plus4 ==========+4 
rem (p) commodore welt team 
rem +3-=3-=---- 7 2220227 
rem (c) by alfons mittelmeyer 
rem 
rem 
rem plus4 mit integrierter 
rem software (vd52084) 
rem ss, - 0 Te 
rem anpassungsteil 
rem ==================2====8=== 
data 23b5d:rem ciout 
rem ================2=20======== 
rem anpas. geraet/sek-adresse 
nem Senn 
data 3b38:rem listen 
data 3b3f:rem second 
data 4 rem gerseteadresse 
data 255 :rem sekundaeradresse 
Ten Pre 
data j rem anpassung j/n 
rem =================22===2=2=5 
rem anpassungsarten 
rem ------==7==-7- = en 
rem ®=nur geraetanpassung 
rem 1=spezialanpassung 
rem 2=mit asciiwandler 1 
rem 3=mit sequenzdruck 
rem 4=mit asciiwandler 2 
Prem rn 
data 2 ırem wahl 
FERN PREREEFZEZEREEEBEEDDETETEEEELEZERN 
rem installationsteil 
rem ========================== 
for i=1t0o?:reada$(i) :next 
rem ran 
rem einschleusroutine 
ren See Fe 
fori=818t0876:reada:pokei,a:ne 
data 72,173,94,59,201,168,208, 
data 173,95,59,201,255,288,48, 
data 9,141,94,59,169,7,141,95 
data 59,169,247,141,57,59,169, 
data 141,58,59,169,6,141,64,59 
data 169,4,141,65,59,169,75,14 
data 36,3,169,236,141,37,3,104 
data 76,75;236 
ad=-828:ax=dec(a$( 1)) :gosub858 
ad=827:gosub858:ad=836 
ax=3x-2:g0sub858:g0sub859 
if left$(a$(6) ,1)="j"then5?78 
poke 843,76:poke 844,95 
poke 845,3:goto 708 
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SALE STETTEN FRE 
558 rem listen/second-rö..ine 
560: ne een 
570 restore 588 

580 fori=-1815t01839:reada:pokei,a: 
next 

59@ data 201,4,208,8,169, 255,133, 1 
koo data 169,4,133,174,76,177,255, 
201 

610 data 255,208,3,76,252,225,76,1 
47 

628 data 255 

630 poke 1920,valla$(5)):rem sek.a 
dr 

648 poke 1924,valla$(4)):rem ger.a 
dr 

650 ax=dec(a$(2)) :gosub85B:g0osub85 
8 

660 ax=dec(a$l3)) :gosub85R:gosub85 
Q 

Eu den Fer 
680 rem anpassungsarten 

E90 ven Fr 
7@a0 poke 804,58:p0ok&805,3:rem bsou 
t 

718 on valla$(?))+1 gosub730,749,7 
50,768,778 

720 end 

730 poke 833,248:poke 834 ,8:return 
748 poke1829,168:poke1821,255:g0to 
788 

758 poke1665,168:poke1666,255:g0to 
788 

768 poke1724,168:poke1725,255:goto 
798 

770 poke1665,168:poke1666, 255:goto 
7908 

788 poke1796, 174:poke1798,valla$(4 
)):return 

798 poke1671,174:poke1673,val(la$(4 
J) 

8082 poke1707,168:poke17B8,255 

810 poke 834,131:poke 839,6:return 
828 rem --------------- 
8380 rem pokew ad,ax+1 

BAD nen m 
850 ax=axti 

860 ah=int( ax/256) :al=ax-256*ah 
870 poke ad,al:poke adt1,eh 

8880 ad=ad+5:return 

898 rem ==================== 55020 = = 


| TIPS & TRICKS | 


188 rem %* <da> die eben genannten Tasten in Verbindung 

‘85 rem <en?> mit der Shifttaste fuer die 

118 rem # <be> Grossbuchstaben, 

115 rem <bp> die Pfeil-nach-oben-Taste';fuer ss, 

‘20 rem neue zeichensatz- <he> das Sternchen in Verbindung mit der 

125 rem adresse in kilobyte <ap> Commodore Taste fuer das bereits 

SSUE N. Be Corsa san? andersweitig verwendete Sternchen. 

135 data 68 <og> 

1408 rem =============== 525-555 <bn> Damit die Sonderzeichen gedruckt werden 

145 rem basicende verlegen j/n <fj> koennen, muessen mit ’asc27;54;’ die 

150: rem an <dp> internationalen Sonderzeichen 

155 data n <md> eingeschaltet werden 

160 rem ====================== <cm> ’ 

165 rem tastenwahl <pd> see a 

178 rem ---------------------- <bk> dann ebenfalls gestartet haben, können Sie schließ- 

195 data "s0usAdUx" ER lich die Textverarbeitung aufrufen. Wenn Sie nicht im 

Besitz der erwähnten Commodore-Welt-Hefte sind, 

TOD REN ESSERF SEE <p >? dann können Sie diese entweder nachbestellen, oder 

185 rem tasten-, drucker-, <me> aber noch einen Monat bis zu unserem C16 Spezial 

1908 rem spezialanpassung t/d/s <jb> 1/88 warten, wo Sie sowohl nochmals die Zusam- 

N a er ee <dd> menstellung dieser Programme als auch deren Kom- 
primierung in ein spezielles Treiberprogramm erhal- 

208 data s <hl> ten. A. Mittelmeyer 

205 rem ==================2=== <ea> 

218 rem druckercodes <gj? 

a nn "> FORMATIERTE 

220 data 132,148, 129,225, 142 <oj> 

225 uote 102, 106,42 AUSGABE 

230 nem FFr=5s3r- rennen <lp> 

235 rem zeichenmuster <ol? Ein Basiclisting auf dem Bildschirm ist 40 Zeichen breit. 

240 rem ----------- <gi> Wenn Sie es auf einem 80-Zeichen-Drucker ausgeben, 

245 data 0,102,60,6 <no> so stimmt das, was Schwarz auf Weiß auf dem Papier 

250 data 62.102.62.0: rem "se PR steht, nicht mehr exakt mit dem, was auf dem Bild- 

S i Es 2 schirm zu sehen ist, überein. Ob Sie nun eine Begren- 
255 data 8, 102,68, 1902 <ao? zung auf 40 Zeichen, auf 30 oder nach Belieben wün- 
268 data 102,102,60,8: rem "oe <ml> schen, ob Sie spaßeshalber eine formatierte Bildschirm- 
265 data 8,102,9,182 <ol> ae wünschen, oder oh . die an Se 
$) 192 ®: rem "ue <ap> usgabe in ein sequentielles File hätten, mit dem Pro- 
—. . ech hin gramm “FORMOUT“ haben Sie die Möglichkeit dazu. 

AR ? r Die Besonderheit des Programmes ist, es läuft, wie 
288 data102,102,124,96:rem "ss <pn? auch unser Checksummer, auf der 16er-Serie und 
285 data 102,24,60, 102 <ed> auch auf dem C64 und 128. Diesmal sogar im 80-Zei- 
298 data 126, 192,102,8:rem "Ae <dc> chen-Modus. Damit das Programm laufen kann, ist vor- 
295 data 102,60, 102,102 <jm> her unbedingt der Checksummer rauszuschmeißen, ent- 
200 data 102.102.60.0: rem "De BERN weder brutal mit einem Reset oder aber, indem Sie den 
ui eg Are Pe verbogenen Tokenisierungsvektor wieder auf seinen 
385 data 1982,90,102,102 s 2 ursprünglichen Wert stellen. Sie laden und starten 
318 data 1902,102,60,0: rem "Ue <1b> „Formout‘ ganz normal. Es paßt sich automatisch Ih- 
341 data 90,192,60,255 h <en> rem Rechner an. Sie können die Spaltenbreite mit dem 
342 data 60,102,0,0: rem "* <op> Befehl “POKE 324,X°“ variieren, wobei anstelle von X 
ans Kay ee 268 die gewünschte Breite einzugeben ist. Die Änderung 
ö betrifft jedwede Ausgabe, ob Drucker, Bildschirm oder 
358 rem spezialcodes sel sequentielles File. Programmsicherungen bleiben hier- 
BE Tem Feen <oe> ‘ von unberührt. Die Routine wird über den BSOUT- 
360 data 91,92,93,94,219 _ <df> eng“ en C16, ph ee und 
Fr Som 22 EN adressiert. Sie können sie wieder ausschalten, in- 
353 BEER BEN ER AE er dem Sie diese Speicherstellen wieder mit ihrem ur- 
sprünglichen Wert belegen. 
Wie funktioniert nun unsere Routine? 
Anstelle der Buchstaben ’aousAQU*’ sind Eigentlich recht einfach. Bei jeder Zeichenausgabe, aus- 
in der Zeile 175 die gewuenschen Tasten genommen dem Carriage-Return, wird ein Zähler in- 
einzutragen. Es bieten sich hierzu an: krementiert. Sobald das eingestellte Limit erreicht ist, 


wird einfach vor der zu erfolgenden Zeichenausgabe 


Ss re : : 
der Klammeraffe fuer ae, noch die Ausgabe eines “Returns“ vorgenommen und 


das englisch“ Pfundzeichen fuer .oe, der Zähler auf Null gestellt. Da normalerweise ein 
das Sternchen fuer ue, Return einige Statusbytes, wie Insertzähler, Reversflag, =» 
15 
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TIPS & TRICKS 


FORMOUT FORMOUT ASSEMBLER 

« 0138 48 pha Zeichen 
18 rem formout ================chm <gg> jretten 
28 rem (p) 18/87 commadore welt <kn> « 0139 07 0d cmp #$0d ;wenn RETURN 
Äf vom by alfons mittelmeyer <nm> « O13d ee 75 O1 inc $0175 ;hochzählen 
S@ rem <pd> .ı 0140 ad 75 01 Ida $0173 ;Zählerstand 
Per, TERN. &nf> « 0143 c9 28 cmp #28 ;<%> Limit 
70 rem c16/116/plus4 <ja> «ı 0145 do 24 bne $01&6b ;dann Sprung 
80 ven ©4728 <gm> . 0147 a5 cf Ida $cf ; INSRT 
SB ren Stesrsszezesrzseonsmesaretenenes <jg> D 0149 48 pha ‚retten 
108 for i=312t0371:readx:pokei,x:n ‚ Olda asc2 Ida $c2 ;RVS-Flag 
ext <ias . O014c 48 pha jretten 
110 lt=peek( 772) enj> . OlAd asch Ida $cb Quote-Flag 
120 if 1t=86 then poke 804,56:poke . 014 48 pha jretten 
805, 1:end <ma> « 0150 ad 3c 05 Ida $053c ;Blink-Flag 
138 poke 806,56:poke 897,1 <ha> . 01535 48 pha jretten 
148 if lt=i3thenrestore378 <dn> 0154 a9 0d Ida #$0d ;RETURN 
150 for i=1 to 14:readad:readx:pok . 0156 20 4b ec jsr $ec4äb ;ausgeben 
ead,x:next:end <1In> « 0159 68 pla ıBlink-Flag 
168 rem ------------------- <mk> . 015a Bd 3c 05 sta $053c ;herstellen 
178 rem masch.prg c16 <fk> . did 68 pla ;Quote-Flag 
180 rem -------------------------- <mp> . O15e 85 ch sta $cb ;herstellen 
190 data 72,201,13,240,50,238,115, « 0160 68 pla ;RVS-Flag 
4 <ia> : 0161 85 c2 sta $c2 ıherstellen 
200 data 173,115,1,201,40,208,36, 1 . 0165 68 pla ; INSRT 
65 <jk> « 0164 85 cf sta $cf ;herstellen 
210 dats 207,72,168,194,72,165,203 ‚ 0166 a9 00 Ida #500 ;auf Null 
‚72 EN ı 0168 8d 73 O1 sta $0173 ;Zähler 
220 data 173,60,5,72,169,13,32,75 <jd> ‚setzen 
230 data 236,104,141,60,5,104,133, ‚ O16b 68 pla ‚Zeichen 
203 <ap> » Oldc 4c 4b ec jmp $ec4b ;ausgeben 
240 data 104,133,194,104,133,207,1 Oi a Ida het zauf -I 
69,0. <dh> . 0171 do #5 bne $0168 ;5prung 
es data 141,119,1, 184,78, 79,296 same Quoteflag und Blinkflag, zurücksetzt, sind diese vor 
260 data 169,255,208,245,® <oi> der dazwischengeschobenen Return-Ausgabe zu si- 
270 re ea <do> chern und nachher wieder herzustellen. Bei dem nor- 
282 rem anpassung c64 <an> malen Zeilenende-Return hat diese Maßnahme zu un- 
FW. REN ee ee ehe <bn> terbleiben. Da unser Zähler — wir erhöhen diesen erst 
200 data 343.202.365.202.244 241 <df> . und fragen hinterher ab — nach der Zeichenausgabe 

’ ’ ’ ’ ’ 


immer um 1 kleineren Wert aufweist, als Zeichen aus- 


310 data 366,241,328,216,357,216  <df> gegeben wurden, ist in letzterem Falle der Zähler 


320 data 331,199,354,199,334,212,3 nicht auf O0, sondern auf —1 zu stellen. 
51,212 <im> Im en ee ine Is Sie Serum 

} i sere Routine bei Interesse näher betrachten. Die Ver- 
nn DREH BORTEIE BIR,E ART, EEE A sionen für den C64 und den C128 unterscheiden sich 
: n lediglich durch andere Statusbyteadressen und durch 
a ee <ıpr eine unterschiedliche Lokalisation der Zeichenausgabe- 
358 rem önpassung c128 <ng> routine. 
360 rem ---------------- <gg> E A. Mittelmeyer 


370 data 343,121,365,121,344,239 <Ip> 
380 data 366,239,328,245,357,245  <he> 


390 data 331,243,354,243,334,244,3 


Nicht vergessen! 


51,244 <mp> 

400 data 337,241,338,0,347,241,348 Testjahrbuch PA/C1I6 
7 <id> 

210 [em ====---=,-= 222222205 == === 5 == <bb> bestellen! 

428 rem ende <nk> 

4A3B rem =============2===2===2=2====== <jm> 
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LISTING 


LINKEN OHNE 


MASCHINEN-SPRACHE- 
KENNTNISSE 


Im Commodore-Basic 
fehlt leider ein Merge-Be- 
fehl, der es erlaubt, an 
ein im Arbeitsspeicher 
vorhandenes Programm 
ein zweites anzuhängen. 

Bei kleineren Program- 
men ist zwar möglich, 
einen gelisteten Pro- 
grammteil mit Return-Be- 
fehlen vom Bildschirm zu 
übernehmen. Bei längeren 
Programmen ist dies je- 
doch nicht möglich. 

Hier hilft das kleine 
Programm „Basic-Minilin- 
ker“. Der eigentliche Lin- 
ke besteht aus zwei Ma- 
schinenroutinen, die 
selbsttätig im Adressbe- 
reich 1630 bis 1662 ab- 
gelegt werden (Zeile 180). 

Aktiviert wird der Lin- 
ker über die Funktions- 
tasten F4 und F7, die mit 
den entsprechenden Ba- 
sic-Kommandos belegt 
werden. 

Der Linker bleibt auch 
nach einem RESET erhal- 
ten. Allerdings geht dabei 
die Funktionstastenbele- 
gung verloren. In diesem 


Falle kann der Minilinker 
auch direkt mitSYS 1630 
(anstelle der Taste F3) 
und SYS 1654 (anstelle 
der Tastel F7) angespro- 
chen werden. 


Arbeitsweise: 


SYS 1630 rettet zunächst‘ 


die aktuelle Basic-An- 
fangsadresse (aus Spei- 
cher 43/44) und setzt 
dann den Anfang auf das 
Ende des Programms im 
Arbeitsspeicher hoch. 
Wird nun der zweite 
Programmteil geschrieben 
oder geladen, kann der 
erste nicht überschrieben 
werden. Ggf. sind nun die 
Zeilennummem so zu 
verändern, daß die klein- 
ste Zeile dieses Programm- 
teils höher ist, als die 
höchste Zeilennummer 
des ersten Programmteils. 
Dies geht am besten mit 
dem Renumber-Befehl. 
SYS 1654 setzt ab- 
schließend den Basic- 
anfang wieder auf den 
Anfang des ersten Pro- 
grammteils runter. 


| Minilinker zu. 1 — 


18 rem minilinker============-====16 
28 rem (p) commodore welt == 
38 rem =======-=-=-=-=2=-=-== === === 22222 
48 rem (c) by = % == 
58 rem wolfgang behrens m 
68 rem il 
78 rem version 3.5 4ABz/ascii == 
88 rem c 16/116/p4 + disk/cass == 


98 rem ======-=-=-=====2 ==> === === === === 
95 gosub 68806 
188 print chr$( 147)"*** basic-minil 
inker ###"chr$( 17) 
118 print "dieses programm verbinde 
t zwei basic-...programme (mit unte 
rschiedlichen” 
128 print "zeilennummern) zu einem 
zusammen-":print"haengenden program 
m."chr${( 17) 
138 print "die zeilennummern des er 
sten programms..muessen dabei klein 
er als die des” 
148 print "zweiten sein!":printchr$ 
(17)chr$( 18)" verfahren "chr$( 146) 
158 print "schreiben oder laden sie 
den ersten..... programmteil und dr 
uecken danach die" 
168 print "funktionstaste f4."chr$( 
17) 
178 print "laden sie nun den teil 2 
und druecken...abschliessend die f 
unktionstaste f?.” 
188 fori=-1638t01662:reada:pokei,a:n 
ext 
198 key5,"":key6,"":key8B,""” 
288 key4,"sys1638"+chr$( 13)+"rem ba 
sicanfang ist verschoben!"+chr$( 13) 
218 key?,"sys1654”+chr$( 13)+"rem ba 
sicanfang ist wieder ok."+chr$( 13) 
228 printchr$( 17)"auf geht’s.":new: 
end 
238 data 165,43,133,216,165,44,133, 
217,56, 165,45,233,2,133,43, 176 
248 data 2,198,46,165,46,133,44,96, 
165,216,133,43, 165,217, 133,44,96 
6888028 rem nachspann 
68818 return 
68828 
68938 
68948 
68859 
68868 
69978 


memory == 
program == 
variables == 
arrays == 


812277 ı 
881486 
BoBaao 


« 


LISTING 


TEXT 16 ODER: 
AUCH MIIT KLEINEN IST 
TEXTVERARBEITUNG 
MÖGLICH 


Kommerzielle Textverarbeitungsprogramme sind so 
komfortabel, daß man sehr lange braucht, um sie be- 
dienen zu können. Außerdem benötigen sie sehr viel 
Speicherplatz, bei einem Arbeitsspeicher bis zu 600 
Kb ist das auch kein Problem, aber wenn man nur 
12277 Bytes Speicher zur Verfügung hat, muß man 
schon etwas mehr haushalten als bei Speicherriesen 
wie den PC’s. Dieses Programm benötigt nur ca. 
10 Kb und läuft daher auch auf dem C-116 bzw. auf 
dem C-16. Schnell hat man alle notwendigen Routi- 
nen im Griff und los geht das Briefeschreiben. 

Zur Handhabung sind vorweg noch einige klären- 
de Worte vonnöten. Wenn Sie das Programm geladen 
haben, vergewissern Sie sich vor dem Start, daß der 
Drucker mit dem seriellen Anschlußport des Rechners 
oder der Floppy (z.B. 1541) verbunden ist. Ebenso 
ob die Geräteadresse =4 eingestellt und vor allem der 
Drucker betriebsbereit ist. Ist dieses nicht der Fall, 
bricht das Programm mit der Fehlermeldung 
‘DEVICE NOT PRESENT ERROR IN 160’ ab, denn 
in Zeile 160 erfolgt bereits die erste Druckanweisung. 

Jetzt zum Text-Druck-Programm selbst. Nach dem 
Start des Programms erscheint das erste Bild am Mo- 
nitor mit den zwei Kopfzeilen — Peter’s Text für 
den C16/P4 — Pfeil nach Links zum Menü RE- 
TURN Leerzeile — im weitern die Abfrage, mit 
Briefkopf (B), mit Absenderzeile (A), oder Neutral 
(N), tippen Sie je nach Wunsch (B) (A) (N) ein. Je 
. nachdem, mit welcher Entscheidung Sie fortfahren, 
gelangen Sie entweder direkt in das Eingabemenü 
oder Sie müssen noch Angaben zur Adresse, Datum 
usw. des Korrespondenzpartners eingeben. 


WIE HEISST DENN IHR DRUCKER? 


Da es eine Vielzahl an Druckern gibt, die an den 
Commodore Rechnern betrieben werden und einen 
entsprechenden CHRS Code-Salat mit den unter- 
schiedlichsten Möglichkeiten wie zum Beispiel: Near 
Letter-Qualität (Schönschrift), 

Draft-Qualität (Normalschrift), 

Enlarged-Print (Vergrößerter Druck oder 
Compressed-Print (Enger Druck) etc. 

gibt, können diese Code von Drucker zu Drucker ge- 
waltig abweichen. Sie müssen im einzelnen Fall Ihr 
Drucker-Handbuch zu Rate ziehen. Wir benutzten 


zum Programmtest einen Mannesmann Tally MT-85 
(Epson-Mode), mit einem Görlitz-Interface und einen 
Commodore MPS 1000. Im zweiten Menübild wird 
die gewünschte Druckqualität abgefragt. (P) 
Pica, (I) Italic, (K) Kompress oder (S) Schönschrift 
stehen zur Auswahl. 


TRENNEN 


EIGENE ADRESS-DATEN EINGEBEN 


In den Zeilen 440 — 470 sind die Adresse und die 
anderen Daten für den Briefkopf mit den Daten des 
Programmautors gefüllt. Dies ist deshalb so, damit 
Sie sich etwas mit dem Programm vertraut machen 
und ausprobieren können, was mit diesem Programm 
und ihrer Computer/Programm/Drucker Konfigura- 
tion alles machbar ist. Wenn Sie sich eine ‘persönli- 
che’ Version des Programms anfertigen wollen, in der 
Ihre eigenen Adressdaten im Briefkopf ausgedruckt 
werden, gehen Sie wie folgt vor: Formatieren Sie eine 
leere Diskette. Wie dies geht, entnehmen Sie bitte 
ihrem Laufwerk — Handbuch. Laden Sie die einge- 
tippte Originalversion und ändern Sie die mit LIST 
440 - 470 und LIST 640 - 770 angezeigten Programm- 
zeilen mit ihren eigenen Daten. Dabei bleibt es Ihnen 
überlassen, ob Sie all die Angaben verwenden, die in 
diesem aufwendigen Kopfzeilen-Ausdruck zur Ver- 
fügung stehen. Nach dem Abspeichern kommt dann 
Ihre eigene Daten-Version zum Schreiben und Druk- 
ken zur Anwendung. 
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DIE SIEBEN MENÜPUNKTE 


Nach dem Erscheinen des Menübildes ist die Wahl 
von sieben Menüpunkten möglich. 


— 1 - Texte eingeben 


Es können Texte geschrieben und auch angehängt 
werden, ein Untermenüpunkt läßt Sie das Gewünschte 
auswählen. Wenn Sie an einen bereits bestehenden 
Text im Arbeitsspeicher etwas anhängen wollen, so 
müssen Sie die erste Textzeile mit dem Asterix (*) ab- 
schließen. Allen nachfolgenden Zeilen werden auto- 
matisch abgeschlossen. Die eventuellen Worttrennun- 
gen müssen Sie allerdings selbst vornehmen. Es wer- 
den die letzten‘13 Zeilen akustisch unterstützt und 
somit angezeigt, daß Sie sich langsam über eine Wort- 
trennung Gedanken machen sollten. Ist bis zum Zei- 
lenende noch etwas Platz, so können Sie diesen mit 
der Space-Taste auffüllen oder mit dem Asterix (*) 
in die nächste Zeile springen. Vor dem Hochkomma- 
modus (” ”) brauchen Sie keine Angst haben, denn 
falls Sie das ‘Gänsefüßchen’ eingeben, wird es sofort 
in ein Apostroph (? = chrS (39) umgewandelt. Mit 
dem Pfeil nach Links kommen Sie wieder in das 
Hauptmenü zurück. 


— 2 — Text korrigieren 


Unter diesem Menüpunkt können auch überflüssige 
Zeilen gelöscht oder auch eingefügt werden. Es wird 
nach der Zeilennummer gefragt, welche zur Bearbei- 
tung vorgesehen ist. Die Zeilennummern sind revers 
auf der linken Bildschirmseite dargestellt. Mit den 
+/— Tasten können Sie den Text hoch- oder herunter- 
scrollen, insgesamt bis zu 660 Zeilen (siehe Pro- 
srammzeile 120 Dimensionsanweisung). Das sind ca. 
10 DIN A4 Seiten. Auch können Sie Teile oder ganze 
Absätze verschieben. Auch hier müssen Sie die Zei- 
lennummern vom Absatzanfang bzw. Absatzende 
sowie die Zielnummer eingeben. Dabei wird der Ur- 
sprungblock aus verständlichen Gründen noch nicht 
gelöscht. Erst nach einer Sicherheitsabfrage ‘Block 1 
löschen’, die mit ja beantwortet wurde, wird dieser 
Textblock gelöscht. Auf eine Änderungsroutine wur- 
de absichtlich verzichtet, da ja Zeilen eingefügt und 
auch gelöscht werden können, maximal 60 Zeichen 
pro Zeile. Zeilen einfügen, auch Leerzeilen, werden 
mit dem ‘Pfeil nach Links’ abgeschlossen, Zeilen 
löschen sowie Blocktausch mit ‘RETURN’. 

Zeilennummern werden ebenfalls mit ‘RETURN’ 
bestätigt. Aus diesem Untermenü kann man mit der 
Taste ‘Pfeil nach Links’ in das Hauptmenü zurück. 


— 3 - Text drucken 


WICHTIG: Bitte beachten Sie, daß beim Programm- 
start der gewünschte Drucker bereits betriebsbereit 
ist, da ansonsten wichtige Daten unwiderruflich ver- 
loren sein könnten. 


Nach Anwahl des Menüpunktes ‘Drucken’ wird 


sofort der gesamte im Arbeitsspeicher befindliche 


Text ausgedruckt und zwar genauso, wie der Text 
auf dem Bildschirm eingegeben wurde. Es bleibt ein 
Abheftrand von 8 Druckzeichen frei. Der Text 
kann, nach der eingebauten J/N-Abfrage, mehrfach 
zum Drucker gegeben werden. Bei der Eingabe von 
‘N’ gehts zurück in das Hauptmenü. 


— 4 — Text speichern 


In diesem Menüpunkt wird sofort nach Eingabe 
des entsprechenden Dateinamens der im Arbeits- 
speicher befindliche Text auf Diskette abgespeichert. 
Sollte der Dateiname bereits existieren, so kann er 
überschrieben werden, natürlich erst nach einer 
Sicherheitsabfrage des Computers, eine Datendiskette 
wäre hier nur zu empfehlen. 


— 5 - Text einlesen 


Mit diesem Menüteil können Sie Textteile von Ih- 
rem Laufwerk einlesen und nach Wunsch weiterver- 
arbeiten. Anhängen. Blockverschieben etc. wie in Me- 
nüpunkt 2 beschrieben. 


— 6 - Programmende 


Vorsicht: Alle im Arbeitsspeicher befindliche Tex- 
te werden gelöscht, versichern Sie sich, daß alle später 
wieder benötigten Textdaten abgespeichert sind. Es 
erfolgt keine Sicherheitsabfrage. 


—- 7 - Zurück 


Durch die Anwahl dieses Menüpunktes gelangen Sie 
an die Anfangsabfrage des Programms zurück. Sie sind 
dadurch in der Lage, andere Adressen oder auch ande- 
re Druckparameter (Schriftarten) anzuwählen. Es 
können damit sogenannte Rundbriefe erstellt werden, 
wenn derselbe Brief an verschiedene Leute (z.B. Ver- 
eine etc.) verschickt werden soll. So und nun viel 
Spaß beim Eingeben und Benützen des Programms 
wünscht 
Peter Basch aus Lindenberg 


TEXTC1S 


18 rem textverarbeitung =======c16 
28 rem (p) commodore welt team 

38 rem 
48 rem {c) peter basch 
5@ rem (v) bernd weite. 
60 rem 

78 rem basic v3.5 

8n rem c16/116/+4 Floppy & drucker 

98 rem = 


198 Re ae ar. 

118 i$=chr${ 32) :62$=-i$+i$ 

128 b3$=b?$+i$:bA$=-b3$+i 

138 6b5$=bA4$+i1$:b6$=b5$+i$ 

148 i$=b5$+h5$ 

158 printchr$( 814) :p$=chr$( 946) 
168 open1,4,7:0pen3,4,7:0pend,A,? 
178 dimz$( 668) ‚e$( 61?) 

186 c1$=chr$( 147) :cd$=chr$( 817) 
198 rn$=chr$( 818) :rf$=chr$( 146} 
288 rg$=chr$( 145) :rb$=chr$( 157) 
218 s1$=chr$( 832) :ec$=chr$( 27) 
229 in$=chr$( 827) +chr$( 964) 

238 fori=tto128:1z$=1z$+s1$:next 
240 gosub?2688 

258 printcl$"mit Briefkopf"b5$"= < 
B>" 

260 print"mit Absenderzeile = <A>" 
278 print"oder Neutral"b6$"= <N>": 
print#1,in$; 


288 gety$:ify$=""then?2RR 
298 ify$="n"then928 
388 ify$="b"then498 
318 ify$="a"then43B 
328 goto 288 

330 y$="b" 

348 printel$"Schrift 
b5$"< 1 > Italic” 
358 printi$"< K > Kompr."b3$"< 5 > 
366 getb$:ifb$-""Lhend6® 

378 ify$="b"andb$="kK"thenprint"Kei 
ne komprimierte Schrift moeglich" 
goto368 

388 ifb$="p" then return 

398 ifb$="kK" thenprintfi,ec$;chr$f( 
15) ;:return 

488 ifb$="i" thenprint#1,ec$;chr$( 


7 < P > Pica” 


52) ;:return 

a18 ifb$="s" thenprint#1,ec$;chrf$t 
88) ;chr$( 1) ;:return 

428 goto36®B 

438 gosub34B 

448 printffl,spc(8)"Peter Basch” 


458 print#i,spc(8)"Faerberstr. 27" 
468 print#1,spe( 8) "D-8998 LINDENBE 
AG" 


<ki? 
<ha> 
eng? 
<da> 
<ke> 
xah> 
<nl> 
<hj> 
zig? 
<oh> 
<1Ih> 
<shr > 
<ei> 
<bpn> 
<ah> 
<fj> 
<ck> 
<pt> 
<ji> 
<pe? 
<on> 
<hi> 
<mc> 
<oj? 


<ol> 
<bm> 


<he> 
<In> 
<hj> 
<oi> 
<om?> 
<mh> 
<pe> 
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498 printfi 


‚spe{8) "tel. 86341/6573 


488 tori=ito4:printfi:nexti:gehatN 
v = 

498 print:printrn$”" Adressen einpa 
be ":print 


5AB printb2$"Anrede"i$; :inputa 
5:8 printh?$"Titel "i$; :inputk® 
529 printb2$"Name"b?$i$; :innurtn® 
53@A printh2$"Strasse"b5fhAß;, 
c$ 
SaB printb?$"PL2"b2$"Ort"bA$hAf; in 
putd$ 

S5# printh2$"1Ihr"b2$"Dat 
pute$ 

56% ife$=-""thene$=i$ 


:input 


um"bäß; :in 


"598 printh?$"uns. Zeichen”hAf; :inp 
utrf$ 
5BA iff$=""thenf$=b3$ 
598 printb?$"Datum "i$; :inputg$ 


[s1217,) BEUNEBEE ANDeHe 5 
618 Bam chr${ 14)" 
628 orint#3, ec$; chr$( 87): chr${®); 
638 print#3,ec$:chr$(BM: 

648 print#3,ec$;chr$( 69) ;chr$( 14)" 
peter basch"i$i$" dl1gbe" 

658 print#3,ec$;chr$( 78); 

668 printf#3,ec$;chr$( 2%) "Faerberst 
ns 2290 

679 print#3,ec$;chr${ 15) spe 87)"am 
ateurradiostation" 

68# print#3,ec$;chr$( 65) ;chr${ 5) 
698 print#3,ec$;chr$( 45) ;chr$t 1}; 
728 print#3,"8998 lindenberg" 

718 print#3,ec$;chr$( 45) ;chr$(®}; 
729 printf#3,ec$;chr$f 15) ;spef 111)" 
Ortsverband Lindau/B":print#3 

738 print#3,"tel. 88381/6573"; 

748 printf#3,ec$;chr$( 69) spe 57) "do 
KrbIE"E 18” 

758 print#3,ec$;chr${ 78) 

768 print#3,ec$;chr$(83) ;chr$( 1); 
778 print#3,"bank krspk 7988 wange 
n blz 65952829 ktinr. 938866" :print 


Ana 


printf#3,ec$;chr${ 84); 

print#3, EHER 185 ne Ma 
==":print# 3,in$ 

888 fori=1to2:printf#3,"":print#3,e 
c$;chr$( 74) ;chr$( i) ;:nexti:print#A 
‚in$; 

B1IR gusuh33R 

820 printf4,spr(81a$ 

838 print#4,spe(8)K$ 


<cet> 
<10> 


<kco> 
<mh> 
<dm> 
<aa? 


<if> 
<c2p? 


<1h> 
<al> 


<i> 
<nk> 
<ic? 
<pm?> 


<ka> 
<ıla> 
<mm> 


<pa> 
<eo> 


<en?> 


<ib> 
<fg> 
<me> 
<kg> 
<fa> 


<km> 
<fe> 


<in> 
<dn> 
<bi> 


<1lm> 
<pj?> 


<hbp> 


enn?> 
< j0> 
<ae> 
<br> 


TEXTCIS 


848 
a5 
858 
378 
838 
exti 
a9 print#1,ec$;chr$( 77);" Ihr Sch 
reiben vom: "e$b3$"unser Zeichen”h 
2$f$; 

988 print#1,i$" Datum :";g$ 

918 print#1:print#t:print#1:printf 
4,spc(8)h$:print#4,ec$;,chr$( 76) :go 
t0o2508 

928 gosub34B 

938 goto 2588 

948 printchr${( 175) +rb$; 

958 gett$:ift$=""then95® 

968 t=asc(t$) :ift=2@andlen( tt$) =tt 
hentt$="":printt$; :goto958 

978 ift=2Qandtt$=""then958 

988 ifw=2andt=2Bandlen( tt$) =#thent 
$="":g0t0958 

998 ift>13andt<2Bort>2B8andt<32ort> 
128andt<133ort>144andt<168thent$=" 
":g0t0958 

18R® ift=95thenreturn 

1B18 ift<>13then1838:elsett=66:z$( 
z) =tt$:2=z+1:t:$="" 

1828 printtab(38) "Zeile ";:printus 
ing" ###” ;z-1:g0t0948 

10830 ift=34thent$="'" 

1B48 ift<>2Mandlen( t$)=Ithenprintt 
$; 
1958 
1268 


print#4,spc([8)n$ 
print#4,spe(8)c$ 
print#4,spc(8)d$ 
fori=1to3:print#4:nexti 
fori=1t08@:print#1,chr$(45);:n 


ift<>2@g0t01158 
iflen(tt$)=1then 1898 

1878 ifw=1then 1988 

19888 tt$=left$(tt$,len(tt$)-1):pri 
ntchr$( 28) ; :goto948 

1898 1=1-len(tt$) :tt$="":printsi$r 
b$chr$( 28) ;:ifw=1thenz$( z)="":z=z- 
1:ifz=-dthenz=1 

1188 ifw=1thentt$=z$(z) 

1118 ifw=ßthene=e-T:ifer-t@thene=1 
1128 ifw=dthentt$=e$(e) 

1138 ifw=2thentt$="":g0t0950 

1148 return 

1158 iflen(t$)>1then1218 

1168 ifg=-Bandlen( tt$)>u-3andt$=" ni 
then1288 

1178 tt$=tt$+t$ 

1188 iflen(tt$) >54thengosub2668 
1198 iflen(tt$) <u+?then949 

1288 goto1148 j 

1218 x1=1len(t$) :fors=1Itox1:tr$=mid 
$lt$,s,?1) :tt$=tt$+ttr$:printtr$;:1k 
=len{tt$) 


<dl> 
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1220 iflk>u+ithent$="":goto1160 
1238 next:t$="":goto116®.. 

1248 w=1:print:printcl$"Weiterschr 
eiben ";rn$” (1) "rf$ 

1258 print"Neuen Text eing.";rn$"” 
(2) "rf$ 

1268 getx$:x=vallx$) :ifx<lorx>2the 
n1268 

1278 onxgoto128B, 1428 

1288 printel$ra$; 

1298 fori=1t054:printrn$p$; :next:p 
rintchr$( 894) ; :fori=1tol1:printrn$ 
p$;:next 

1388 printchr$( 895)" Zeilenende" 
1318 z$l z)=tt$:2=2+1:tt$="":printt 
ab( 25) bA4$"Zeile ";:printusing”#H#" 
;z-1:g0osub948 

1328 ift$=chr$( 895) thenz$( z) =tt$:t 
t$="":t$="":w=ß:return 

1330 goto1318 

1348 printcl$rg$; 

1358 fori=1t054:printrn$p$; :next:p 
rintehr$( 894) ; :fori=1to11:printrn$ 
p$; :next 

1368 printchr$( 895)" Zeilenende" 
1378 forx=1toz:z$( z)="":z=1:gosub9 
48 

1388 ift$=chr$( 8295) thenz$( z) =tt$:t 
t$="":t$="":w=@:return 

1398 z$( z)=stt$:z=>z+1:tt$="":printt 
ab(25)b4$"Zeile ";:printusing"#HA" 
;z-1:gosub948 

1488 ift$=chr$( 895) thenz$( z) =tt$:t 
t$="":t:$="":w=@:return 

1418 goto1398 

1428 u=64:g0t01348 

1438 a=1:b=8 

1448 printcl$:c=b-a:forx=atob:prin 
trn$;x;rb$" "rf$;tab(6) ;z$(x) :next 
:printcd$ 

1458 poke2835,21:poke2036,8:sys655 
28 

1468 printrn$b2$"(1)"b4$"Loeschen" 
b3$"(e) Einfuegen"b4$b3$; 

1478 printb2$"(+ - ) Blaettern"b2$ 
"(b) Blocktausch"b5$; 

1488 printb2$"( "chr$(895)") Ende"i 
$"(m) Menue "i$; 

1498 getk$:ifk$=""then1498 

1588 ifk$="1"then 1688 

1518 ifk$="e"then 1678 

1528 ifk$="b"then 1848 

1538 ifk$="m"thengosub2688:g0t0251 
1%) 

1548 ifk$="-"thena=a-1-c:b=atc:ifa 
<ithena=1:b=atc 


<1k> 
<pd> 


<kf> 
<me> 
<mn> 


<im> 
<mb> 


<bb> 
<an> 
<na> 
<dn> 


<fo> 
<gd> 


<bk> 
<fc> 
<mg> 


<el> 


<dk> 
<pk> 
<ia> 
<ff> 
<nh> 
<ae> 
<ik> 
<ke> 
<ai> 
<la> 
<hn> 
<ep> 
<do> 


<ck> 


<1lm> 


<g> 39 


TEXTCI16 


1558 ifk$="-"thengosub2688:goto144 
8 

1568 ifk$="+"thena=b+1:b=b+1+c:ifb 
+1+c>66@thenb=669:a=b-c 

1578 ifk$="+"thengosub2688:goto144 
8 

1588 ifk$=chr$( 895) thena=@:b=®:gos 
ub2689:return 

1598 goto1448 

1680 poke2835,21:poke2836,8:sys655 
28 
1618 printrn$lz$ 

1628 poke2835,21:poke2936,8:sys655 
28 

1638 printcd$"Welche Zeile soll ge 
loescht werden?"”b6$"8=Irrtum "; 
1648 input” Zeilen-Nr. ";kk:ifkk=® 
then 1448 

1658 ifkk>zthenprintrg$rg$rg$ra$rg 
$ra$rgq$:goto1688 

1668 forx=kktoz:z$(x)=z$lx+1) :next 
:z$( z2)="":z=z-1:kk=90:goto1448 

1678 poke2835,21:poke2836,8:sys655 
28 

1688 printrn$lz$ 

1698 poke2935,21:poke2936,8:sys655 
20 

1788 printcd$"Vor welcher Zeile so 
11 eingefuegt werden? (&=Zurueck) 


’ 

1718 input” Zeilen-Nr. ";kk:ifkk>z 
thenprintrg$rq$:goto1788 

1728 ifkk=8then 1448 

1738 w=@:e=®:printcel$"Es koennen m 
aximal 68 Zeichen eingefuegt werde 
n!" 

1748 forx=1t066@:next:printcl$:e=1 
:ifz+1>=669@then 1448 

1758 gosub94B:ift$=chr$( 895) thene$ 
(e)=tt$:tt$="":t$="":goto1818 

1768 e$(le) =tt$:tt$="":t$="":e=setl: 
ife=61then 1818 

1778 ifzte=668goto1818 

1788 gosub94B 

1798 ift$=chr$( 895) thene$(e)=tt$:t 
t$="":t$="":goto1818 

1888 goto1768 

1810 z=z+te:forx=ztokk+te-1step-1:z$ 
(x)=z$(x-e) next. 

1828 f=B:forx=kktokkte-1:f=f+1:z$( 
x)=e$( f) :e$(f)="":next:kk=B:e=1 
1838 goto1448 

1840 poke2835,21:poke2836,0:sys655 
28: 

1858 printrn$l1z$ 

1868 poke2835,21:poke2836,8:sys655 
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28 

1878 printcd$"”Von welcher Zeile "; 
:input"Zeilen-Nr. ";aa$ 

1888 ifaa$=chr$( 895) then 1448 

1898 aa=vallaa$) :ifaa<torab>zthenp 
rintrgq$rg$:goto1878 

1988 poke2835,21:poke2836,8:sys655 
28 

1918 printrn$lz$ 

1928 poke2835,21:poke2836,8:sys655 
28 

1938 printcd$"bis zu welcher Zeile 


1948 input"Zeilen-Nr. ";bb:ifbb<aa 
orbb>zthenprintrg$rg$:goto1938 
1958 poke2935,21:poke2836,8:sys655 
28 

1968 printrn$lz$ 

1978 poke2835,21:poke2936,8:sys655 
28 

1988 printced$ "Vor welcher Zeile s 
oll eingefuegt werden ?"; :input”Ze 
ilen-Nr. ";cc 

1998 ifcc<lorce>zthenprintrg$ra$:g 
0t01988 

2808 dd=bb+1-aa:ifdd>68thenprint"B 
lock zu gross":goto1448 

2818 e=B:e$="":ford=aatobb:e=e+tl:e 
$le)=z$(d) :next 

2828 z=z+dd+1:ford=-ztocc+tdd-1step- 
1:z$( d)=z$( d-dd) :next:d=®B:e=® 

2838 ford=cecetocc+tdd-1:e=set1:z$(d)= 
e$(e) :next:x=® 

2848 poke2835,21:poke2036,8:sys655 
28 
2858 
2868 
28 
2878 
rn$"” 
2288 
2898 
2188 


printrn$lz$ 
poke2835,21:poke2836,8:sys655 


printced$ "Block 1 loeschen "; 
Vn:2 * 

getx$:ifx$=""then2888 
ifx$="j"then2128 
ifx$="n"then 1448 

2118 goto208® 

2128 forx=aatoz:z${x)=z$( x+dd) :nex 
t:z=z-dd:goto1438 

2138 printcel$rn$"” Ausdruck "” 

2148 gosub2258 

2158 xx=B 

2168 Forx=atob:print#1,chr$(9);:go 
sub2238:ma=smat1:ifma/t=int(ma/t)th 
enxx=xx+1 

2178 next 

2188 print"Noch ein Druck? (j/n) " 
:printrg$rg$:xx=@:ma=® 

2198 gety$:ify$=""then2198 


TEXLTETES 


2208 ify$="j"thenprintrg$rg$:ma=®: 

goto2148 

2210 ify$="n"thenx$="":y$="":q=B@:r 

eturn 

2228 goto2198 

2238 forzz=1tolen(z$(x)):ip$=mid$( 

z$x),zz,1) 

2248 printf#4,ip$; 

eturn 

2258 t=69:p=8:3$="8" 

2268 a$="8":arvalla$) :ifa=dthena=1 
:b=z:g0t02288 

2278 ifa<ßora>zthenprintrgsrg$ra$: 

g0t02268 

2288 return 

2298 printc1$:0pen15,8, 15 

2388 print#15,"i8":gosub2438: input 

"Dateiname:";cb$:db$="B:"+cb$+",s, 

W 

2318 goto2458 

2328 open2,8B,2,db$:print"Datei ";r 

n$ cb$ rf$;" wird gespeichert.” 

2338 print#2,z:print#2,u:forx=1toz 
:ifz$(x)=""thenz$( x) =chr$( 95) 

2348 print#2,chr$( 934); SEM ALATEEST 

x) =chr$( 895) thenz$( x) = 

2358 next:close2:close15:return 

2360 printel$:open 15,8, 15:print#15 
"ig" 

2378 gosub2438:input"Dateiname: "; 

cb$:db$="9:"+cb$+",s,r"” 

2388 gosub2438:close2:open?2,8,2,db 
$:g0sub2438 

2398 printced$"datei " 

wird eingelesen.” 

2488 inputf#2, z:input#2 ,u:forx=1toz 

2A18 input#2,z${ x) :ifz$(x)=chr$( 89 
S}thenz$(x)="" 

2428 next:close2:close1lS:return 


:nextzz:printf4:r 


;ren$cb$rf$;" 


<ab> 


<fg> 
<bp> 


<cn> 


<df> 
<ed> 


<co> 


<pj? 


<gp> 
<1j> 


<ko> 
<hh> 
<bo> 
<fc> 


<go> 
<ji> 


<ka> 
<lo> 
<noa> 


<mg> 
<oh> 


<pp> 
<di> 


2430 inputf15,v$,w$,x$,y$:ifvallv$ 


) <>@thenprintv$,w$,x$,y$ 

2448 return 

2458 open2,8,2,db$:gosub2438:ifval 

(v$) <>63thenelose2:printf#15,"s9:"+ 

»b$:g0t02328 

2468 ifval(v$) -63thenprint"Datei u 

eberschreiben ";rn$" j/n ? " 

2470 getz$:ifz$=""then2478 

2488 ifz$="n"thenclose2:close15:ga 

t02298 

2498 ifz$="j"thenclose2:printf#15," 

sA:"+cb$:gosuh2439 :g0t0o2328 

2520 x$="":x=@:g=-B:w=@:printel$chr 

$(14) 

2518 print: 
* arınt 


3$spcel 14)rr$" Menue 


<hk> 
<1b> 
<30> 


<kg> 
<db> 


<ji> 
<mc> 
<gm> 


<if> 
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2528 Präntspel BITES"1-";7T$" Text 


eingeben":print 

2538 printspc(8)rn$"-2-" Bere Text 
korrigieren"”:print 

2549 printspe(8)rn$"-3-";rf$"” Text 
drucken":print 

2558 printspc(8)rn$"-4-";rf$"” Text 
speichern":print 

2568 printspc(8) rn$"-5-";rf$" Text 
einlesen”:print 

2578 printspc(8)rn$"-6-";rf$" Prog 
rammende": print 

2588 printspc(8) rn$"-7-";rf$"” Zuru 


eck":print 

2598 printspc(8)"Waehlen Sie ";rn$ 
"1 Zeinrine 

2698 print:printspc(5)" Freier Spei 
cher =";:printfre(B) "Bytes" 

2618 GR: Val NS] ErRketor The 
n2618 

2628 ifx= Sthenprintchr$( 19); chr$( 1 
9) ;cl$:closel:close3:close4:end 
2638 ifx=7g0oto258 

2648 onxgosub124B,1430,2138,2298,2 
368 
2658 
2668 


got0o2588 
vol?:sound1,98®8,2 
2678 return 

2688 printcl$rn$b6$"Peter’ 
xt fuer den C16/P4"”b5$; 
2698 printrn$b3$"< "chr$(B95)" > z 
um Menue"b2$"<RETURN> Leerzeile"b2 
$rr$; 
2788 
2718 
2728 
2738 
2748 
2758 
2768 
2778 
2788 
2798 


s"b2$"Te 


printchr$(27)"t"; 
return 

rem 
rem 
rem 
rem 
rem 


12277 
88129 
88126 
82183 
98162 
01677 


bytes 
bytes 


memory 
program 
variables 
arrays 


rem 


COMMODORE- 


WELT 


JEDEN 


MONAT 
NEU 


LISTING 


DISK - | 
MONITOR C16 


Dieses Programm beinhaltet einen Diskettenmonitor, 
mit dem Daten gelesen, verändert und wieder auf 
Diskette gespeichert werden können. Auch der Spei- 
cher der Diskettenstation kann manipuliert werden. 
Außerdem kann man Befehle zum Formatieren, 
Scratchen usw. an die Floppy senden. Weitere nütz- 
liche Funktionen sind das Auslesen des Directorys, 
des Fehlerkanals und der Bam. Vom Programm aus 
kann auch direkt in den Tedmon gesprungen werden. 


Der Disk-Monitor C16 ist in Menütechnik aufgebaut 
und dadurch leicht zu bedienen. Bei Befehlen ohne 
Sicherheitsabfrage kommt man meistens durch 
Eingabe von ungültigen Werten wieder ins Menü 
zurück, falls man das falsche Unterprogramm ge- 
wählt hat. Die Eingaben müssen normalerweise im 
Dezimal-, wenn verlangt, im Hexadezimalsystem ge- 
macht werden. 

Die Funktionstasten werden von den Unterprogram- 
men jeweils geeignet belegt. Die Belegung wird ange- 
zeigt, und diese Anzeige bleibt durch Windowtechnik 
auch beim Scrollen des restlichen Bildschirms 
erhalten. 

Der Inhalt des zu lesenden oder zu schreibenden 
Blocks bzw. Speicherteils steht im Speicher des Com- 
puters jeweils von $0600--$06FF und kann dort 
editiert werden. 

Die REM-Zeilen müssen nicht eingegeben werden, da 
sie keine Sprungziele sind! 
Erforderlicher Speicherplatz: ca. 10 kBytes. 
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disk- monitor 


18 rem ser=s:=====616 
28 rem (p) commodore welt team 

38 rom =====-, 7-2, S0oSS See 
48 rem (c) by bernd poesl 

58 rem nuernberg 

69 rem 

78 rem basic v3.5 

88 rem c16/116 plus 4 + 1551/1541 
98 rem =====================2=n= == 
95 gosub 3588 

188 ml=dec( "698") :mh=ml+255 

118 key1l," ":key2," ":key3," ":key 
B® " 

128 rem 

130 rem hauptmenue 

148 rem 

158 printhe$he$c1$c4$c4$cA$b$"disk 


-moenitor c16" 

168 printc4$c4$b2$"1: 

{block-read)" 
170 printb2$"2: 
lock-write)" 

188 printb2$"3: 

mory-read)" 

198 printb2$"4: 
(memory-write)" 


block lesen 
block schreiben (b 
speicher lesen (me 


speicher schreiben 


288 printb2$"5: bam betrachten" 

218 printb2$"6: fFloppy-befehl send 

en" 

228 printb2$"7: directory" 

23@ printb2$"8: zum masch. monitor 
springen" 


248 printb2$"”9: fehlerkanal lesen" 
258 printc4$b2$"e: programmende" 
268 printc4$b2$"legen sie bitte di 
e zu bearbeitende"b7$"diskette ein 
(nicht noetig bei" 

278 printb6$"3,4,8,9,e),und waehle 
n sie!" 

2898 getkeye$:ife$="e"then3268 

298 e=val(e$) :ifa<1Tore>9then2BQ 
32R onegotn349,569,739,958, 1458,17 
19,39260,3149,319@ 

318 rem 

328 rem block lesen 

338 rem 

348 printcl$b$h3$"block lesen" 

35@ printc4$c4$" bitte geben sie t 
rack und sektor des"”b4$"zu lesende 
n blocks ein." 
368 printc4$"” 
tt,s 

378 as=-s:at=t:gosub348@:ifof=ithen 
118 

388 printc4$"” 
ingelesen." 


track, sektor ";:inpu 


block "t","s"” wird e 


<bo> 
<ho> 
<ng> 
<jn> 
<gb> 
<ah> 
<nl> 
<dd> 
<jg> 
<md> 
<mn?> 


<lk> 
<hp> 


<ja>- 


<ki> 
<ek> 
<dd> 
<mf> 
<aj> 


<kk> 
<ac> 


<hf> 
<dd> 


<ag> 
<1lb> 
<ne> 


<ac> 
<og> 


<zeb> 
<ph> 


.2gc> 


<pn> 
<mi> 
<cf> 
<nc> 
<mg> 
<eg> 


<hg> 


<mf> 
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398 open15,8, 15:0open2,8,2,"#@"” 
aB8 print#15,"u1l:"2;0;t;s. 
418 fori=mltomh:get#2,a$:ifa$=""th 


ena$=chr$( 8) :pokei ueeLap: next:el 
sepokei, ae next 


428 close2:close15 

438 nt=peek( 1536) :ns=peek( 1537) 
448 bl=1:gosub3328:b1=® 

458 printcl$:monitor 

468 rem 

478 rem naechster block 

488 rem 

498 printhe$he$c1$ 

5a8 at=nt:as=ns:gosub348B:ifof=1th 
en118 

518 print” naechster block: 
s2$nt”, sektor "ns" 
n" 

528 
538 
5A8 

558 

568 printcel$b$b3$"block schreiben" 
578 printc4$" der letzte gelesene 

block war:" 

588 printc4$" track: 
a: 

598 printc4$"” bitte geben sie trac 

k und sektor des"b4$"zu beschreibe 
nden blocks ein" 

698 printc4$" track,sektor"b3$;t", 
"s 

618 printc2$left$(qr$,14); 
„ws 

628 at=wt:as=ws:gosub348B:ifof=ith 
en118 

638 printc4$" block "wt"”,"ws" wird 
beschrieben." 

648 open15,8,15:0pen3,8,3,"#1" 

658 printf#15,"b-p";3;8 

668 fori=mltomh:print#3,chr$( peek( 
i)); :nexti 

678 print#15,"u2:"3;8;wt;ws 

688 close3:close15 

698 goto11d 

788 rem 

718 rem speicher lesen 

728 rem 

738 printcel$b$” speicher lesen" 
738 printc4$c4$" bitte geben sie d 
ie nummer der zu le-"” 

745 print" senden speicherseite im 
hex-code ein." 

758 printc4$" page”; :inputpl$:trap 

898: pl=dec( pl$) :ifp1l>255then898 
768 printc4$” page "right$lp1$,2)” 


track" 
wird eingelese 


t=nt:s=ns:goto398 
rem 


rem block schreiben 
rem 


"t;b2$"sektor 


:inputwt 


<im> 
<ip> 


<kc> 
<hi> 
<mb> 
<en> 
<jj> 
<ck> 
<1f> 
<fc> 
<al> 


<dg> 


<jd> 
<lp> 
<lh> 
<ea> 
<np> 
<cg> 


<1b> 


<xnd> 


<eo> 
<og> 
<da> 
<pp> 


<bn> 
<gl> 
<dj> 


<1d> 
<nl> 
<mj> 
<ok> 
zam> 
<ep> 
<de> 
<ZIE> 


<gk> 
<mm> 


<be> 
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wird eingelesen" 

778 open15,8,15:print#15,"m-r"chr$ 
(B)chr$({pl)chr$( 255) 
788 fori=mltomh-1:get#15,a$:ifa$=" 
"thena$=chr$( 8) :pokei,asc( a$) :else 
pokei,asc( a$) 

798 nexti 

882 print#15,"m-r"chr$(255)chr$( pl 
) :get#15,a$:ifa$=""thena$=chr$( ®) 
818 pokemh,asc( a$) :close15 

820 sl=1:gosub3320:s1=® 

838 printcl$:monitor 

848 rem 

858 rem nachste seite 

868 rem 

878 pl=pl+1:ifp1l>255thenpl-® 

888 pl$=hex$( pl) :printhe$he$cel$:go 
t0768 

898 printc4$"” page eingabe ist ung 
uveltig!" 

988 fort=1t0788:next 

918 goto118 

928 rem 

938 rem speicher schreiben menue 
948 rem 

958 printcl$b5$b4$”speicher schrei 
ben" 

968 printc4$cA$b6$"1: 
reiben" 

978 printb6$"2: eine ganze page sc 
hreiben"” i 

988 printc4$b6$"h: hauptmenue" 

998 printb6$"e: programmende" 

1888 printc4$cA$b6$"bitte waehlen 
sie!" : 

181® getkeye$:ife$="e"then326®:els 
eife$="h"then118 

1028 e=valle$) :ife<>lande<>2then1d 


ein byte sch 


1838 onegoto187B, 1288 

1848 rem 

1858 rem ein byte schreiben 

1869 rem 

1878 printc1l$b5$b4$"ein byte schre 


1888 printc4$c4$" bitte geben sie 

die adresse und den"; 

1885 printb5$"inhalt des bytes im 

hex-code an.” 

1898 printc4$""adresse,inhalt";:in 
putad$,by$:trap1398 

1188 ad=dec( ad$) :ad$=hex$l ad) :by=d 
ec(by$) :ifby>255then 1398:elseby$=r 
ight$(lhex$(by) ,2) 

1118 printc4$"” adresse "ad$"” wird 

mit "by$” beschrieben." 


<pa> 


<hl> 


<jo> 
<lc> 


<1j> 
<cd> 
<pc> 
<pa> 
<cf> 
<30> 
<en> 
<gh> 


<op> 
<pp> 
<kh> 
<lm> 
<mg> 
<nn> 
<oo> 
<aj? 
<bc> 
<ho> 
<gh> 
<em> 
<ik> 
<fj> 
<nm> 
<ch> 
<1h> 
<en> 
<np> 
<ep> 
<ol> 
<pj? 


<ad> 


<ik> 


<hp> 


1128 ah=dec( left$(ad$,2)) :al=dec(r 
ight$(ad$,2)) 

1138 open15,8,15:print#15,"m-w"chr 
EL aLLanngt SITERESL Uehrsrby} HElnse 
E4} 


1148 goto1078 

1158 printc4$c4$" die letzte geles 
ene speicherseite” 

1168 print” war "right$({pl$,2)" ." 
1178 print” bitte geben sie die zu 
beschreibende"b4$"seite im hex-co 
de an." 

1188 printc4$” page"b2$right$(p1$, 
2) 

1198 printc2$left$(qr$,5); :inputps 
$:trap898:ps=dec( ps$) :ifps>255then 
898 

1288 printc4$" page "ps$" wird bes 
chrieben" 

1218 open15,8,15 

1228 fori=8t0255:print#15,"m-w"chr 
$li)chr$lps)chr${ i)chr$( peek(ml+i) 
):nexti 
1238 close15 

1248 goto112 

1258 rem 

1268 rem eine seite schreiben 

1278 rem 

1288 printel$b5$bA$"page schreiben 
1298 printc4$c4$" die letzte geles 
ene speicherseite" 

1388 print” war "right$(lpl1$,2)" ."” 
1318 print” bitte geben sie die zu 
beschreibende"b4$"”seite im hex-co 
de an." 

1328 printc4$" page"”b2$right$(pl1$, 
2) 

1338 printc2$left$(gqr$,5) ;:inputps 
$:trsp1398:ps=dec({ps$) :ifps>255the 
n1398 

1348 printc4$"” page "ps$"” wird bes 

chrieben"” 

1358 open15,8,15 

1362 fori=-8t0o255:print#15,"m-w"chr 

$li)chr$(ps)chr$(1)chr$( peek(ml+i) 
):nexti 

1378 close15 

1388 goto118 

139R printcA$" hex-eingabe ist fal 


sch!" 

1488 fort=1t07@@:next 
1418 g0t0958 

1428 rem 

1438 rem bam betrachten 
1448 rem 


<cj? 


<ej?> 
<hg> 


<pl> 
<md> 


<pg> 


<fb> 


<ik> 


<di> 
<kn> 


<cl> 
<km> 
<gj? 
<fm> 
<fn> 
<ie> 


<il> 


<dp> 
<ne> 


<em> 


<i1> 


<bj> 


<ho> 
<ok> 


<pc> 
<ba> 
<da> 


<eg> 
<ıg> 
<ec> 
<lc> 
<gg> 
<nk> 
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1458 
1468 
1478 


open15,8,15:0pen4,8,4,"#2" 
print#15,"u1l";4;9;,18;8 
keyß,"m":printcl$ 

1488 fori=28to®dstep-1:printi:next 
1498 printb3$"12345678981234567898 
123456789812345" 

1588 print:printb5$"*:block belegt 
"b2$".:block frei ";:print 

1518 printhe$c3$c3$c3$; 

1528 bi=16:forby=7to?1step4:gosub1 
65@8:next:printb?$rn$" help:menue " 
rf$ 

1538 bi=8B:printc3$c3$c3$; :forby=?7t 
o?1step4:gosub1658:next 

1548 bi=4:print:printc3$c3$c3$; :fo 
rby=7t099step4:gosub165®8:next 

1558 bi=2:print:printc3$c3$c3$; :fo 
rby=7t0123step4:gosub 165®:next 
1568 bi=1:print:printc3$c3$c3$; :fo 
rby=7to143step4:gosub 165#%:next 
1578 bi=128 

1588 print:printc3$c3$c3$; :forby=6 
to142step4:gosub165@:next 

1598 bi=bi/2:ifbi>2.5then 1588 

1688 bi=128 

1612 print:printc3$c3$c3$;:forby=5 
tol41step4:gosub1658:next 

1628 bi=bi/2:ifbi>98.5then 1618 

1638 getkeye$:ife$<>"m"then1638 
1648 close4:close15:goto11® 

1658 print#15,"b-p";4;by:getf4,a$: 
ifa$=""thena$=chr${ 2) 

1668 gete$:ife$="m"thenclose4:clos 
e15:goto11B 

1678 a=asc({ 3$) :if(laandbi)=bithenpr 
int".";:return:elseprint"*"; :retur 
n 
1688 
1698 
1788 rem 

1718 printhe$he$c1$b7$"floppy-befe 
hl senden” 

1728 printc4$cA$b4$"1: directory” 
1738 printbA$"2: formatieren (head 


rem 
rem floppy befehl menue 


er)" 

1748 printb4$"3: validatieren (col 
tlect)" 

1758 printb4$"4: file loeschen (sc 
ratch)" 


1768 printh4$"”S: 
ock allocate)" 
1778 printba$"6: 
block free)" 
1788 printb4$"7: 
1798 printbf$"8: 
uche aendern"” 


block sichern (bl 
block freigeben ( 


programm starten” 
zahl der lesevers 


<fn> 
<dd> 
<dn> 
<en> 
<bo> 
<ca> 
<fm> 
<dh> 
<em> 
<pi> 
<nb> 


<hf> 
<nf> 


<dce> 
<pa> 
<fj> 
<1j> 
<pb> 
<dm> 
<bm> 
<fh> 
<km> 
<nn> 
<1lm> 
<fg> 


<oe> 


<hf> 
<eb> 


<fp> 
<ol> 
<ko> 
<le> 


<bg> 
<1p> 


<1lo> 
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1828 printc4$b4$"h: 

uptmenue" :, 

1818 printb4$"e: programmende” 

OR BEIRORSRERIDAR DIELS waehlen 
e ! 

1838 getkeye$:ife$="e"then326®8:els 

eife$=-"h"then11@ 

1848 e=valle$) :ife<1ore>8then 1838 

1858 onegoto1898,2829,2148,2228,23 


zurueck zum ha 


18,2450,2588, 1948 

1868 rem 

1878 rem direktory 

1888 rem 

1898 fb=1:g0t03068 

1988 fb=-B:goto1718 

1918 rem 

1928 rem anzahl der leseversüche 
1938 rem 

1948 printcl$b4$"anzahl der leseve 


rsuche aendern" 

1958 printc4$c4$" bitte geben sie 

die gewuenschte anzahl von lesever 
suchen ein.( 1-255)" 

1968 printc4$"” anzahl ";:inputaz:i 

faz<loraz>255thenprintc4$" falsche 
eingabe":goto1998 

1978 printc4$" die floppy wird auf 
"az" leseversuche”:print" eingest 

ellt” 

1988 open15,8,15:print#15,"%r"+chr 

$(az) :close15 

1998 fort=1t0588:next:goto1718 

2888 rem 

2818 rem formatieren 

2828 printcl$b$" formatieren" 

2838 printc4$c4$"” wollen sie wirkl 
ich formatieren ( j/n)"” 

2848 getkeye$:ife$<>"j"then171@ 

2858 printc4$c4$" bitte geben sie 
den namen und die id"b4$"der diske 
tte ein !"” 

2868 print” (bei id=®@ wird weich 
formatiert)" 

2078 printc4$"” name,id ";:inputna$ 
‚id$:ifid$="89"then2898 

2888 open15,8, 15:print#15,"n@:"+na 

$+","+id$:close15:g0t021988 

2898 open15,8,15:print#15,"n@:"+na 

$:close15 

2188 goto171® 

2118 rem 

2128 rem validatieren 

2138 rem 

2148 printc1$b$"validatieren" 

2158 printc4$c4$" wollen sie wirkl 
ich validatieren ( j/n)" 


<eh> 
<nc> 


<jg> 


<el> 
<hh> 


<pp> 
<cf> 
<cg> 
<en> 
<fe> 
<la> 
<ij> 
<pn> 
<lc> 


<jl> 
<kn> 
<gg> 


<oi> 


<bil> 
<gc> 
<do> 
<oi> 
<mn> 


<IL> 
<kh> 
<km> 
<ib> 
<he> 
<pc> 
<hf> 
<ai> 
<bl> 
<eb> 


<ed> 
<bf> 


>39 
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2168 getkeye$:ife$<>"j"then171® 
2178 collect d® 

2188 goto1718 

2198 rem 

2288 rem file loeschen 

2218 rem 

2228 printcl$b$"file loeschen” 
2238 printc4$c4$" wollen sie wirkl 
ich ein file loeschen ? (j/n)“ 
2248 getkeye$:ife$<>"j"then1718 
2258 printc4$" filename ";:inputna 
$ 

2268 open15,8,15:print#15,"s:"+na$ 
:close15 

2278 goto1718 

2288 rem 

2298 rem block sichern 

2388 rem 

2318 printcel$b$"block sichern" 
2328 printc4$c4$" bitte geben sie 
track und sektor des"b4$"zu sicher 
nden blocks ein." 

2338 printc4$" track, sektor";:inpu 
tbt,bs 

2348 at=bt:as=bs:gosub348® 

2358 ifof=1then171@:elseopen15,8,1 
5:open4,8,4,"#" 

2368 print#15,"b-a";8;bt;bs:inputf# 
15,en,em$,et,es 

2378 close4:close15:ifen<>65then17 
18 

2388 ifet=®thenprintc4$+" die disk 
ette ist voll!":fort=1t07@@:next:g 
0t01718 

2398 printc4$" der gewuenschte blo 
ck ist bereits ge-" 

2395 print” sichert. der naechste 
freie block ist:"” 

2498 print” track"et" sektor"”es". 
wollen sie diesen"b3$"block sicher 
n ? (3/n)" 

2418 getkeye$:ife$<>"j"then171Q:el 


sebt=et:bs=-es:goto2348 
2428 rem 

2438 rem block freigeben 
2448 rem 


2458 printcl$b$"block freigeben" 

2468 printc4$c4$" bitte geben sie 
track und sektor .des" 

2465 print" blöcks ein, den sie in 
der bam loesch-" 

2478 print” en wollen." 

2488 printc4$” track, sektor"; :inpu 
tlt,1s 

2498 at=1t:as=-1ls:gosub3489 

2588 ifof=1then1718 


<in> 
<jk> 
<bo> 
<lm> 
<be> 
<oe> 
<ei> 


<lm> 
<ne> 


<hl> 
<aj> 
<fm> 
<ha> 
<pm> 
<jh> 
<fc> 


<kh> 


<1lh> 
<ch> 


<ee> 
<an? 


<po> 


<cg> 
<oc> 


<fp> 


<bk> 


<ha> 
<ij> 
<ah> 
<1lc> 
<kh> 


<ab> 


<di> 
<md> 


<op> 
<ep> 
<me> 


2518 open15,8,15:0pen5,8,5,"#" 
252® print#15,"b-F";@;1t;1s 
2538 closeS:close15 


2548 goto1718 _ 
2558 rem 


2568 rem programm starten menue 
2578 rem 

2588 printcl$b$"”programm starten" 
2598 printc4$c4$b7$"1: memory exec 
ute” 

26@® printb?7$"2: block execute" 
2618 printb7$"3: user befehl" 

2628 printc4$b7$"d: disk-befehlmen 
ve" 

2638 printb?7$"h: hauptmenue" 

2648 printb?$"e: programmende" 
2658 printc4$c4$b7$"bitte waehlen 
sie!” 

2668 getkeye$:ife$="e"then326B 
2678 ife$="h"then11ß:elseife$=-"d"t 
hen1718 

2688 e=valle$) :ife<tTore>3then2668 
2690 onegoto2730,2820,2940 

2782 rem 

2718 rem memory execute 

2728 rem 

2739 printcl$b4$bA4$"memory execute 


2748 printc4$c4$" bitte geben sie 
die startadresse im"b5$"hex-coce e 
in." 

2758 input” startadresse";sa$:trap 
2588:sa=dec( sa$) :sa$=hex$( sa) :ifsa 
>65535then2588 

2768 ha=dec( left$( sa$,2)) :la=dec(r 
ight$(sa$,2)) 

2778 open15,8,15:print#15,"m-e"chr 
$(la)chr$( ha) :close15 

2788 goto258B 

2798 rem 

2888 rem block execute 

2818 rem 

2828 printcl$b$"block-execute" 
2838 printc4$c4$"” bitte geben sie 
track und sektor des” 

2835 print" blockes , der geladen 
und gestartet" 

2848 print" werden soll,und die bu 
ffer-nummerein." 

2859 printc4$" track, sektor,buffer 
"-:inputet,es,eb:at=-et:as=es:gosub 
3488 

2858 ifof=1then2588 

2865 ifeb>3thenprintc4$"” buffer-nu 
mmer zu gross"”:fort=1t07®8@:next:go 
to2588 


<np?> 
<bn> 
<bn> 
<dg> 
<io> 
<dl> 
<1h> 
<mn> 


<nl> 
<jl> 
<ok> 


<kk> 
<ph> 
<cc> 


<nj?> 
<kk> 
<ih> 
<ai> 
<mi> 
<1im> 
<oa> 


<oe> 


<eo> 


<eb> 


<cb> 
<ip> 
<le> 
<gk> 
<ha> 
<ik> 
<jh> 
<fe> 
<ik> 
<bd> 
<da> 


<jf> 
<gf> 


<jn> 


DISK-MONITOR 


2878 open15,8, 15:0pen2,8,2,"#"+str. 
$(eb) 

2888 printf#15,"b-e";2;@;et;es 

2898 close2:close15 

2988 g0t02588 

2918 rem 

2928 rem user befehl 

2938 rem 

2948 printcl$b$"” user befehl" 

2958 printc4$c4$"” bitte geben sie 
den gewuenschten befehl ein. (u3-u 
9 und uj)"” 

2968 printc4$"” befehl"; :inputc$ 


2978 


ifc$="u3"orc$="u4"orc$="uS"or 


c$="u6"then2998 


29882 


ifc$=-"u?7"orc$=-"u8ß"orc$=-"u9"or 


c$="uj"then2998:elsegoto3Q18 


2998 
15 

3888 
3818 


open15,8,15:print#15,c$:close 


got 02588 
printc4$" falsche eingabe!":f 


ort=1t0788:next 


38208 
3838 
3848 
3858 
3868 
3878 
3088 
3288 
3898 
3109 
3118 
3128 
3138 
3148 
3158 
3168 
3178 
3188 
3198 
32298 
3218 


goto2588 

rem 

rem direktory 

rem 

df=1:gosub3329:df=® 

directory 
gete$:ife$<>"d"ande$<>"m"then 


ife$="d"thenprintc1$:g0t03978 
iffb=1then1988:elsegoto118 
rem 

rem zum masch.mon. springen 
rem 

mf=1:gosub3328:mf=8 


monitor 

rem 

rem fehlerkanal lesen 
rem 
ff=1:gosub3328:ff-8 


printc1$c4$"fehlerkanal:"c4$ 
printds$ 


3228 getkeye$:ife$="m"then11ß:else 
g0to3228 

3238 rem 

3248 rem programmende 

3258 rem 

3268 keyl,"graphic":key2,"dload"+c 


hr$(34) :key3,"directory"+chr$( 13): 


keys, 


3278 
3288 
3298 
nd 

3388 


“"help"+chr$( 13) 

printel$:end 

rem 

rem funktionstasten belegen u 


rem window anlegen 


3318 
3328 
3338 


2Ey "b$b3$; :key1,"d”":key8,"m":goto3 
42 


3348 
3358 


$+"fi1: 


ren” 
3368 
ster 
3378 


rem 
printcl$; 
ifdf= !thenprintrn$” 1: direct 


ifff=1thenkey8, "m" :g0t03428 
ifbl=1lorsl=1ormf=ithenprintrn 
hexdump"”b$"f2: disassemblie 


ifbl=ithenprintrn$+"f3: naech 
block"; 


ifsl=1thenprintrn$+"f3: naech 


ste seite"”b4$b4$; 


3388 ifbl=1lorsl=1ormf=ithenkey1,”"m 


6RB 6rff"+chr$( 13) :key2,"d6B@ 6ff"+ 


chr$( 
3398 


13) 
ifbl=1thenkey3, "x"+chr${ 13) +" 


goto499"+chr$( 13) 


3488 


ifsl=1thenkey3,"x"+chr$( 13) +" 


goto878"+chr$( 13) 


3418 
hr$( 1 
3428 


keyß,"”x"+chr${ 13) +"goto158@"+c 
3) 
printtab(26)" "rn$" help: men 


ve "rf$:print 


3438 
3448 
3458 
3468 
uefen 
3478 
3488 


printchr$( 27) +"t" 

return 

rem 

rem track / sektor eingabe pr 


rem 
ifat>35thenprintc4$" die trac 


knummer ist zu gross! ("at")":goto 


3568 
3498 


ifat=@thenprintc4$+"” die trac 


knummer ist ® !":g0t03568 


3588 
3518 
3528 
3538 
3548 
3558 
t ZU 
3568 
3578 
3588 
3598 
3698 
3618 
3628 
3638 
3648 
3658 
3658 
b5$ 
3678 
3688 


ifas>28then3558 
ifas>18Bandat>17then3558 
ifas>19andat>24then355® 
ifas>16andat>3@8then355® 
of=®:return 

printc4$" die sektornummer is 
gross! ("as")" 
forz=1t0789:next 

of=1:return 

rem nachspann =============== 


B.3 


rem * farbeodes/steuercodes * 


c4$=chr$( 817) :rn$=chr$( 818) 
he$=chr$( 819) :c3$=chr$( 829) 
c2$=chr$( 145) :rf$=chr${ 146) 
cel$=chr$( 147) :b$=chr$( 32) 
b2$-b$+b$:b3$=b2$+b$ 
b4$=b3$+b$:55$=bA4$+b$ 
b6$=-b5$+b$:b7$=b6$+b$:b$=b5$+ 


rem *** zeichensatz/graphik * 
s2$=chr$( 168) 


« 


LISTING 


DISK-MONITOR 


3698 rem FF#HR###%% zeichenfolgen * <aj> 
3788 for q-1 to 482 <jd> 
3718 gr$=gr$+c3$ <pc> 
3728 next gq <la> 
3738 return <mp> 
3748 rem ===========-5============= po) 
3758 rem 12277 bytes memory <ip> 
3768 rem 18882 bytes program <kc> 
3778 rem 88175 bytes variables <bb> 
37588 rem 88982 bytes arrays <ko> 
3798 rem 88438 bytes strings <In> 
3808 rem 89782 bytes free (B) <gh> 
3818 rem ========================> com> 


DISKEDITOR 


Der Diskeditor ist ein sehr nützliches Werkzeug, 
um den Überblick über die ständig wachsenden 
Diskettenmengen zu behalten. Er gibt ihnen viele 
Möglichkeiten, um ihre Sammlung in Ordnung zu 
halten, zu pflegen und zu verbessern. Einige Menü- 
punkte stehen Ihnen zur Verfügung, um beispiels- 
weise Programme und Disketteninhalte zu schützen, 
Disketten zu bereinigen usw. 

Die einzelnen Programmpunkte: 
— RESET: Ein vollständiger Rechner-Reset wird 
durchgeführt, der C 16 meldet sich mit der norma- 
len Einschaltmeldun 
— SCRATCH: Mit diesem Befehl erhalten Sie die 
Möglichkeit, einzelne Programme oder Files von 
Diskette zu löschen. 
— NEW: Mit diesem Menüpunkt lassen sich leere 
Disketten formatieren. 
— DISK STATUS: Hiermit liest das Programm den 
Disk-Status aus (Vergleich im Handbuch zur Flop- 
py-Station). Dabei werden eventuelle Fehlermel- 
dungen ausgegeben, deren Bedeutung Sie ebenfalls 
im Handbuch überprüfen können. 
— DIRECTORY: Das Inhaltsverzeichnis der Dis- 
kette wird geladen und angezeigt (ohne Programm- 
verlust!), außerdem wird die Zahl der Einträge 
vermerkt. 
— COPY: Hiermit können Sie einzelne Files inner- 
halb der Diskette kopieren. 
— RENAME: Sie können hiermit den Namen ein- 
zelner Programme oder Files umändern. 
— VALIDATE: Mit diesem Befehl wird die Disket- 
te quasi „gereinigt“. Dies ist besonders dann sinn- 
voll, wenn öfters'Files gelöscht oder überschrieben 
wurden, um die Fehlersicherheit der Diskette zu 
gewährleisten. 
- INITIALIZE: Die BAM der Biskette wird einge- 
esen. 
— NEW HEADER: Hiermit können Sie den Dis- 
kettentitel umändern. Das Programm stellt Ihnen 
außerdem auch noch die Möglichkeit zur Verfü- 


gung, die ID der Diskette umzuändern. Diese ID 
kann übrigens bis zu 5 Zeichen lang sein! 


 — LADESCHUTZ: Das Inhaltsverzeichnis der Dis- 


kette wird so umgeändert, daß es nicht mehr gela- 
den werden kann. Dieser Menüpunkt kann auch 
„rückwärts“ ausgeführt werden, das heißt: Mit 
diesem Menüpunkt geschützte Disketten können 
auch wieder in Normalzustand gebracht werden. 
— LISTSCHUTZ: Dieser Programmpunkt verän- 
dert das Inhaltsverzeichnis so, daß es nicht mehr 
geladen werden kann. Sie können von dieser 
Diskette dann nur noch unter direkter Angabe des 
Programmnamens laden. Achtung! Dieser Befehl 
kann nicht mehr rückgängig gemacht werden! 

— PROGRAMMENDE: Hierbei wird kein RESET 
ausgeführt, sondern nur das eigentliche Programm 
gelöscht. 


— PROGRAMM LADEN: Unter diesem’ Punkt 
werden Files von Diskette eingeladen. 

— DRUCKEN DIR: Das Inhaltsverzeichnis der 
Diskette wird auf einen Drucker am seriellen Aus- 
gang ausgegeben. 

— VIEW BAM: Es wird auf dem Bildschirm aus- 
gegeben, welche Blocks der Diskette belegt sind 
und welche noch frei sind. 


Bedienungshinweise: 

Rufen Sie die einzelnen Menüpunkte immer mit 
dem Zeichen auf, welches an deren Anfang ange- 
geben wird. Wechseln Sie nach ausgeführten Befeh- 
len wie dem Anzeigen des Inhaltsverzeichnisses mit 
der Taste „SPACE“ zurück ins Hauptmenü. Gehen 
Sie mit einigen Befehlen, wie dem Format-Befehl 
oder dem Ladeschutz vorsichtig um und vergewis- 
sern Sie sich, daß nicht unabsichtlich die falsche 
Diskette manipuliert wird! 

Am besten kleben Sie sicherheitshalber einen 
Schreibschutzaufkleber auf die betreffenden Ker- 


“ ben der Disketten, die gesichert werden sollen. 


DISKEDITOR 


18 rem diskeditor==============616 <ba> 
28 rem (p) commodore welt team <ho> 
38 rem =================2=22=2=2=2== ong> 
48 rem (c) by joerg kranz <ie> 
58 rem <pd> 
68 rem <ah> 
78 rem basic v3.5 <nl> 
88 rem c16/116/plus4 <ki> 
98 rem ===================20====== (jg> 
188 gosub 2348 <ek> 
118 closei:d=8 <ba> 
128 printc1$:poke65385,8:poke65381 

‚s4 <om> 
138 printleft$(gqr$,18)wh$”super di 

sk editor" <id> 
148 printc4$1g$”8 = reset” <am> 
158 printc4$"1 = scratch” <nj> 
168 printc4$"2 = new "” <bb> 


178 printc4$"3 = disk status "” <oc> 628 printcl$wh$ 

188 printc4$"4 = directory "” <gm> 638 input"disk name"”;a$ 

198 printc4$"5 = copy ” <ac> 648 input”id”;b$ 

288 printc4$”"6 = rename " <kn> 658 iflen(a$)>15thenprint"disk nam 
218 printc4$"7? = validate " <bp> e zu lang" :fort=1t01888:next:goto6 
228 printc4$"8 = initialize " <ph> 28 

238 printc4$"9 = new"c3$”header " <cd> 668 open1,8,15,"n:"+a$+","+b$ 

248 printhe$c4$c4$c4$left$(qr$,28) 678 close1,8, 15 

"e = d. ladeschutz <ko> 688 200699 

258 printc4$left$(gqr$,28)"* =d. 698 printcl$wh$:open15,8,15 
listschutz"” <ok> 708 :get#15,aa$:printaa$;:i 

268 printc4$left$(qr$,28)"e = pro then?88 

gramm ende” <cp> 718 close15:poke239,8:getkeya$ 

278 printc4$left$(qr$,28)"l1 = pro 728 run 

gramm laden" _ <lc> 738 open1,8,0,"$":getf#1,a$,b$:getf# 
288 printc4$left$(qr$,280)"a = ”,8 1,a$,b$:get#1,a$,b$:ifaa=@then?77& 
: "anhaengen"” <1lc> 748 printcl$wh$"drucker geraet nr. 
298 printc4$left$(qr$,28)"d = dru 4-5" ; :inputui:ii=4 

cken dir. " <id> 758 reiner okundauradienge” SEN 
388 printc4$left$(qr$,28)”"v = vie putoi 

w bam" <ce> 768 openii,ui,oi 

318 printc4$ye$left$(lqr$,28)"by ’r 778 printel$wh$; i 

oyal games’" <le> 788 ifa$=""thena$=chr$(B) 

328 printc4$left$(qr$,28)"joerg kr 798 printg3$:ifb$=""thenb$=chr$({ 8) 
anz and" <kj> 888 ifaa=2thenprintf4," "; 

338 printc4A$left$(gqr$,28) "andre kr 818 bl=asc( a$) +256*asc(b$) :printbl 
ugenberg” <dl> tab( 3) ;:fort=1t025:get#1,a$:printa 
348 printcA$left$(qr$,24)"(c) 1987 $; 

"bk$ <fb> 828 ifaa=2thenprintf4,a$; 

350 geta$:ifa$=""then358 <nl> 838 next 

368 ifa$="@"then54a <kh> 848 ifaa=2thenprintf#4,"" 

378 ifa$="1"then58® <lo> 858 printwh$ 

388 ifa$="2"then628 <ae> 860 get#1,a$,a$,a$:get#1,a$:ifag=" 
398 ifa$="3"then698 <co> "thena$=chr$( 8) 

4088 ifa$="4"then?738 <nd> 878 get#1,b$:ifb$=""thenb$=chr$(B) 
418 ifa$="5"then 1928 <pm> 888 ifst<>@then978 

428 ifa$="6"then1868 <oe> 898 bl=asc( a$) +256*#asc(b$) :printbl 
438 ifa$="7"then1188 <mg> tab( 3) ; :ifaa=2thenprintf4,bl; 

448 ifa$="8"then1118 <cb> 988 fort=1t027:get#1,a$ 

458 ifa$="9"then1128 <io> 918 printa$; 

468 ifa$="@"then136® <pc> 928 ifaa=2thenprintf4,a$; 

478 ifa$="*"then1648 <cg> 938 next:x=x+1:print: 

458 ifa$="e"then 1778 <ac> 948 ifaa=2thenprintf#4,"”"” 

498 ifa$="1"then2298 <nn> 958 gosub98B 

5sa8 ifa$="a”"then1788 <in> 968 goto868 

518 ifa$="d"thenaa=2:g0t0738 <hc> 978 close1:g0t01988 

528 ifa$="v"then1998 <no> 988 ifpeek( 239) =@thenreturn 

538 ifasc( a$) <256thenrun <jg> 998 ifz=999thenreturn 

548 printcl$:printwh$"reset "rn$"j 1888 ifaa=2thenprintf4, ye$+c4$x-1 
"rf$"a/"rn$"n"rf$”ein"” <hm> "DISK EINTRAGUNGEN!": 

558 geta$:ifa$=""then558 <aj> 1818 printye$c4$x-1 "disk eintragu 
568 ifa$="j"thensys32768 <oc> ngen!”:poke239,®:getkeya$:aa=®:got 
578 ifa$="n"thenrun <nh> 0698 

588 printcel$wh$"name des zu loesch 1828 printcl$wh$”"copy name” 

enden files: <hl> $ 

598 inputa$ <dl> 1838 print"programm name” 

68@ open1,8,15,"s:"+a$ <lo> 1848 open15,8,15,"c:"+a$+"="+b$ 
618 close1,8,15:g0ot0698 <pi> 1858 close15:g0t0698 


DISKEDITOR 


| DISKEDITOR | 


1868 printcl$wh$ 

1878 print”neuer name"”:inputa$ 

1888 print"alter name":inputb$ 

1898 open15,8,15,"r:"+a$+"="+b$:cl 

ose15:got0698 

1188 open15,8,15,"v":close15:goto6 

98 e 

1118 open15,8,15,"i":close15:goto6 

98 

1128 printcl$wh$”disk einlegen und 
"taste” drueken" 

1138 poke239,8:wait239,1 

1148 open1,8,15,"i":open2,8,2,”#" 

1158 printf1,"ul 2 8 18 8 ":printf 

1,"b-p 2 144”:aa$="" 

1168 fort=8t015:getf2,a$:aa$=aa$+ta 

$:next 

1178 printc4$”"disk name="rn$ye$” " 
‚aa$ 

1188 printf#1,"b-p 2 162":aa$="":fo 

rt=1t05:get#2,a$:aa$=aa$+ta$:next 
1198 printwh$c4$"id”bA$b3$"="ye$rn 

$" "-aa$ 

1288 printwh$c4$rn$"n"rf$"ame,"rn$ 

"i"rf$"d aendern oder "rn$"z"rf$"u 

rueck ?":poke239,8 

1218 :geta$:ifa$=""then1210 

1228 ifa$="n"then 1298 


1238 ifa$="i"then 1258 

1248 ifa$="z"then698 

1258 print#1,"u2 2 8 18 8":input"” 
neue id ";a$ 

1268 print#1,"b-p 2 162”":fort=1tol 


en(a$) :print#2,mid$(a$,t,1);:next 
1278 fort=len( a$) t05:printf#2,chr$( 
168) ; :next 

1288 print#1,”"u2 2 8 18 8":print#1 
‚"i":close2:close1:goto698 

1298 print#1,"ul 2 8 18 @":input"n 
euer name ";a$ 

1308 iflen(a$)>16thenprint”name zu 
lang" :fort=1t01888:next 

1318 print#1,"b-p 2 144":fori=1tol 

en(a$) :print#2,mid$(a$,i,1);:next 
1328 iflen(a$)=5then 1348 

1338 fori=1tolen(a$) :print#2,chr$( 
168) ; :next 

1348 printf#1,"u2 2 8 18 8" 

print#1,"i”:close2:closei:got 


printcl$wh$"bitte waehlen sie 


printc4$rn$"s"rf$"chuetzen" 
printrn$"f"rf$"reigeben" 
geta$:ifa$=""then1398 
ifa$="s"then1428 
ifa$="f"then1538 
open1,8,15,"i":open2,8,2,"#": 


<la> 
<bh> 
<kj> 
<fn> 
<ib> 
<gf> 
<id> 
<cg> 
<mp?> 
<je> 
<he> 
<kp> 
<on?> 
<gc> 
<jm> 
<jb> 
<oc> 
<hp> 
<bc> 
<em> 
<ge> 
<ob> 
<hp> 
<di> 
<nc> 


<df> 
<oi> 


<mn> 
<dc> 


<jj> 


<ep> 
<hf> 
<hc> 
<pp> 
<he> 
<bi> 


32 


x=1; 

1438 print#1,"ul 2 8 18"x 

1448 print#1,"b-p 2 8":get#2,a$:if 
a$=""thena$=chr$( 8) 

1458 get#2,b$:ifb$=""thenb$=chr$( 8 
) 


1468 a=asc(a$) :b=asc( b$) :ifa=Bandb 
=255then 1498 

1478 ifa=18andb=1then 1518 

1488 x=b:goto1438 

1498 print#1,"b-p 2 8":printf#2,chr 
$018) ;chr$( 1); 

1588 printf#1,"u2 2 8 18”"x:printf#1, 
"i":close2:close1:g0t0698 

1518 printc4$c4$bk$"directory ist 
schon geschuetzt"wh$:fort=1t0188®: 
next:closel:close2: 

1528 goto698 

1538 open1,8,15,"i":open2,8,2,"#": 
x=1: 
1548 
1558 
) 
1568 
) 
1578 
1588 
1598 


print#1,"u1 2 @ 18"x:printf#1, 
2 8" 
get#2,a$:ifa$=""thena$=chr$(® 


get#2,b$:ifb$=""thenb$=chr$( 8 


a=asc(a$) :b=asc( b$) 
ifa=18andb=1then1618 
ifa=®andb=255t hen 1638 

1688 x=b:goto 1548 

1618 print#1,"b-p 2 8":printf2,chr 
$(8) ;chr$( 255) ;:print#1,"u2 2 8 18 
iR 

1628 printf1,"i":closel:close2 
1638 printcl$wh$c4$c4$"directory i 
st frei":fort=1t01588:next:goto698 
1648 printcel$wh$cA$"directory list 
schutz" 

1658 print"sind sie sicher ?" 

1668 geta$:ifa$=""theni668 

1678 ifa$="j"thengoto1788 

1688 ifa$="n"thenprintcl$+wh$+c4$+ 
cA$+”o.k. dann nicht !":fort=1t015 
B8:next:goto698 

1698 goto1668 

1788 printcl$wh$c4$c4$" o.k... le 
ts go !" 

1718 z=999:open1,8,15,"i”":open2,8, 
2,"#":printf1,"ul 2 8 18 0" 

1728 printf#1,"b-p 2 144” 

1738 print#2,chr$( 28) chr$( 28) chr$( 
28) chr$( 34) chr$( 188) chr$( 28) chr$( 3 
1)chr$( 284) ; 

1748 Tort=1t028:print#2,chr$(®);:n 
ext 

1758 printf#1,"u2 2 8 18 8":print#1 
‚"i":close2:closel 
1768 goto698 


<co> 
<aa> 


<ea> 
<de> 
<fh> 
<nd> 
<an> 
<an> 
<cj?> 
<km> 
<bk> 
<po> 
<nk> 
<no> 


<ki> 
<1k> 


<aj> 


<fe> 
<oa> 


<mn> 
<pf> 


<jd> 
<ng> 
<jj> 


<1In> 
<ol> 


<bo> 
<kl> 


<em> 
<kp> 
<nf> 
<on> 
<hl> 


<na> 
<cn> 


| DISKEDITOR HEN 


1778 printcl$:new <hm> 2140 ift>24ands=18thenprint" ";:go 

1788 printcl$wh$:a=18:b=1 <ih> to2248 <pf> 
1798 print”an welches programm sol 2158 01$=g3$+"+":02$=g3$+"-":ift=1 

I *,8:’"bl$”angehaengt werden" <pf> Btheno1$=rn$+"+"+rf$:02$=rn$+"-"+r 

1888 printye$c4$rn$" j"rf$"”a/"rn$"n f$ <1l> 
"rf$”"ein” <pk> 2168 fors=-®to28 <ge> 
1818 open15,8, 15:0pen2,8,2,"#”:for - 21478 ift<18then?2228 <gl> 
i=1t08:t$(i)="":next <mm> 2188 ift>38ands=17thenprint” ";:go 

1828 ifa=Borb=-@thenrun <nl> to2?248 <mb> 
1838 print#15,"ul 2 8";a;b:printf1 2198 ift>24ands=18thenprint"” ";:go 
5,"b-p 2 8”:get#2,a$,b$:al=asc( a$+ to2248 <jn> 
chr$(8)) <ea> 2288 ift>17ands=19thenprint" ";:go 

1848 bi=asc (b$+chr$(B)) :w=4:fort= t0o2248 <el> 
1to8:print#15,"b-p 2";w-2 <dh> . 221@ ift>179ands=2@thenprint"” ";:go 

1858 get#2,p$:p=asc( p$+chr$(8)):if to?2?48 <ij> 
p<>13@andp<>194then 1888 <pm> 2228 iffna( s)=®Bthenprinto1$;:goto2 

1868 fory=1t0o16:print#15,"b-p 2";y 248 <bd> 
+w:get#2,c$:t$(t)=t$(lt)+c$:next: <go> 2238 printo2$; <cd> 
1878 w=w+32 <ef> 2248 printc2$c1$; <mi> 
1889 nextt <ne> 2258 next :return <jp> 
1898 w=17:fort=1to8:ift$(t)=""then 226® printhe$left$(gd$, 22) ye$cA$c3 

1958 <fd> $"blocks free:"chr$(27)"gqg"”;ts-18;b 

1988 printcl$t$(t) <ba> 1$b2$ <ga> 
1918 gets$:ifs$=""then1918 <fn> 2278 geta$:ifa$=""then2278 <ah> 
1928 ifs$="j"then1988 <gj? 2288 close2:close 15:g0t0698 <ao> 
1938 ifs$="n"then1958 <bj> 2298 orintcl$wh$ <pd> 
1948 goto1918 <am> 2388 print"programm name":inputa$ <hn> 
19590 w=w+32:nextt:iff=ithenprint#1 2318 printel$"load"”+chr$( 34) ta$+ch 
5,"u2 2 8";a;b <fg> r$(34)",8"” <gb> 
1968 a=sal:b=b1l:close2:close15 <1k> 2328 printleft$(gd$,4)"run" <on> 
1970 goto1818 <me> 2338 poke239,4:poke1319,19:poke132 

1988 f=1:print#15,"b-p 2";w:printf 8,13:poke1321, 13:poke1322,13 <df> 
2,chr$( 168) ;",8:":g0t01958 <kf> 2348 rem nachspann =============-= <np> 
1998 x$=qr$:open15,8,15,"iß" <df> 22358 rem * farbceodes/steuercodes * <nj> 
2888 printcl$he$c4$b3$" 12345678901 2368 wh$=chr$( 805) :c4$=chr$( 017)  <kc> 
234567898123456789812345" <am> 2378 rn$=chr$( 818) :he$=chr$( 819) <fn> 
2818 printhe$bk$rn$b4$"track"b2$"1 2388 c3$=chr$( 829) :bk$=chr$( 144) <1m> 
-35"b5$"+ = belegt - = frei"bk$ <kj> 2398 c2$=chr$( 145) :rf$=chr$( 146) <ff> 
2028 deffna(z)=2°(s-int(s/8}*8jand 2488 c1$=chr$( 147) :1g$=chr$( 153) <bh> 
(sblint(s/8))) <fa> 2418 g3$=chr$( 155) :c1$=chr$( 157) <oj> 
2030 open2,8,2,"#":print#15,"b-r:" 2428 ye$=chr$( 158) :b1$=chr$( 32) <bc> 
2,8,18;0 sad 2438 b2$=b1$+b1$:b3$=b2$+b1$ <In> 
2848 print#15,"b-p:2,144":fort=1to 2448 b4$=b3$+b1$:b5$=bA$+b1$ eng> 
18:gel#2,a$:n$=n$taß:inext:print#15 245® b6$=b5$+b1$:b1$=b5$+b5$ <aj> 
, bp22,1” “DAR 24608 rem #RFRHRHR* zeichenfolgen * <ck> 
2958 printhe$ye$left$(qgd$,23)c3$"d 2470 for q=1 to 40 zbns 
isk name: ";n$;bk$he$c4$:print#15," 2488 qd$=qd$+cA$:qr$=gr$+c3$ <gc> 
u1:2,90,18,8 <ha> 2498 next q <gd> 
2268 fori=2®to®step-1:printi:next <la> 2598 return € <cj> 
2970 fort=1t035:x=t+4:gosub2B8ß:ne 

xt:g0t02268 <ie> 25108 rem ========================= cel> 
2888 get#2,sc$,a$,b$,c$ <he> 2528 rem 12277 bytes memory <fj> 
2098 ts=ts+tasc( sc$+tchr$(®)) <ea> 2538 rem 86896 bytes program <ib> 
2108 sb( B) =asc( a$+chr$(B)) <bk> 2548 rem 88168 bytes variables <ob> 
2118 sb( 1) =asc(b$+chr$(B)) <eg> 2558 rem B8988 bytes arrays <fk> 
2128 sb( 2) =asc(c$+chr$(9)) <pa> 2568 rem 88488 bytes strings <el> 
2138 printh-$teft$(gd$,22) +left$lx 2570 rem 04733 bytes free (B) <fn> 
$,x-1)+01$; <pf> 2589 rem ========================= <mh> 
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| LISTING | 


SUPER - 
VOKABEL- 
TRAINER 


Nach dem Start des Programmes erscheint zunächst 
ein kleiner Vorspann und dann ein Menü. Die 
Menüfunktionen sind auf die Funktionstasten des 
C-16 gelegt. Die Anzahl der Vokabeln muß mini- 
mal 4 Stück betragen und das Maximum ist bei 

- 120 Stück. 
Die Menüfunktionen im Einzelnen: 


F1 — EINGABE 


Wie es der Name schon sagt, handelt es sich hier- 
bei um den Eingabebefehl des Programmes. Der 
Computer fragt Sie folgendes ab: 

1. Um welche Sprache handelt es sich? 

2. Wieviel Vokabeln wollen Sie eingeben? 

Wenn Sie alles korrekt eingegeben haben, geht der 
Computer in den Eingabemodus. Abwechselnd 
fragt er Sie die deutsche und die fremdsprachige 
Bedeutung der Wörter ab. Dieser Vorgang wieder- 
holt sich so oft, bis die bestimmte Anzahl voll ist. 


F2 — LERNEN 


Mit dieser Funktion können Sie Ihre vorher einge- 
gebenen oder geladenen Vokabeln lernen. 

Der Computer fragt Sie nacheinander in zwei 
verschiedenen Testarten ab. 


Test Nr. 1: 

Der Computer fragt Sie, welche Vokabeln abge- 
fragt werden sollen: 

1. Fremdsprache (F?2) 

2. Deutsch (Fl) 

Wenn Sie auch dies beendet haben, müssen Sie die 
Anzahl, bzw. wieviel Durchgänge Sie machen wollen, 
eingeben. Nun können Sie anfangen zu lernen. Der 
Computer zeigt Ihnen ein fremdsprachiges bzw. 
deutsches Wort an, und Sie müssen die entsprechen- 
de Bedeutung eintippen. “TED“ — der elektroni- 
sche Schiedsrichter, bewertet dann Ihre Eingabe. 
Dieser Vorgang wiederholt sich, bis die eingegebe- 
ne Anzahl erreicht ist. 


Test Nr. 2: 

Zunächst erhalten Sie (wie bei Test 1) eine kleine 
Beschreibung des Lehrvorganges und dann geben 
Sie wieder die Anzahl der Durchgänge ein. 

Der Computer schreibt zwei fremdsprachige Wör- 
ter und ein deutsches Wort auf den Bildschirm. 
Die fremdsprachigen Wörter sind mit Fl und F2 
gekennzeichnet. 

Welches Wort gehört zu dem deutschen Wort? — 
geben Sie Fl oder F2ein. 

Am Ende erscheint Ihre Testnote und die Anzahl 
der falschen Vokabeln in Prozent. 


F3 — MEDIUM 


Mit Medium können Sie: 
1. Bei leerem Speicher vorher abgespeicherte Vo- 
kabeln laden. 
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a nn 


SUPERTEST 


18 rem supertest===============g16 
28 rem {p) commodore welt team 

38 rem ========2 ===, ===, en eee=> 
28 rem (c) by torsten stenzel 

58 rem 

58 rem 

78 rem basic v3.5 

88 rem c16/116/plus4 cass/disk 

98 rem ========-=-========S22S====== 
88 gosub 2838 

118 goto 148 

128 dim e$(a):dim d$(a) 

138 return 

148 scencelr 

158 color A4,2,7 

168 g=® 

178 a$="RRARARARRRARARRAARRARARRARAR 
RRARRRRRRRARAR" 


188 gosub 2158:g=g+1 

198 a$="----- supertest der vokabel 
trainer----- ":gosub 2159:g=g+1 

288 a$="-------- 1986 by torsten st 
enzel------- ":gosub 2158:g=g+1 

210 Ba$="---r ist geladen---- 


:gosub 2159:g=g+1 

220 a$= "FEEEEFEEEFEEFEEEEEEEEEEEEE 
EE£EEEEEEEEEE" 

238 vol 7 

248 gosub 2158:for i=1 to A :s=7 
258 for p=1 to 4 

268 vol s:sound 1,596,9:sound 1,68 
5,9:sound 1,739,9:s=s-2 

278 vol 2 :sound 1,596,2:sound 1,6 
85,3:sound 1,739,3 

288 next p 

298 s=4 

388 for p=1 to A 

318 sound 1,596,9:sound 1,784,9:so 
und 1.778,9:vol s:s=s-1 

328 sound 1,596,3:sound 1,784,3:so 
und 3,778,1 

33@ next p:next i:for a=1 to 988:n 
ext a 

348 clr:gosub2838 

359 print cl$:r=® 

368 char 1,17,208,"supertes 


370 char 1,17,22,"(c) torsten sten 


388 g=-8:a$="menue”:gosub 2159:a$=" 
":gosub 2158 

398 a$="eingabe( fi}":gosub 2158 
498 a$="lernen(f2)":gosub 2159 

418 a$="medium{ f3) ":gosub 2158 

a0 g=gtil:aß=-"press fi,f2 or f3":g 
osub 2158 


“gun 
<ho> 
ng> 
<cm> 
<pd> 
<ah> 
<nl> 
<fi> 
<jg> 
<fm> 
<ig> 
<dp> 
<jd> 
<ab> 
<hn> 
<1h> 


<jf> 
<hi> 


<ab> 
<xnc> 
<am> 
<jl> 
<jii> 
<ea> 
<jd> 
<bf> 
<bl> 
<1j> 
<pp> 
<eg> 
<pp> 
<jh> 
<em> 
<kg> 
<ng> 
<di> 
<ng> 
<la> 
<ah> 
<pd> 


<bm> 


<ib> 


438 key 1,"Q”":key 2,"W": a, Er 

449 get a$ 

458 if a$="Q"” then 498 

468 if a$="W" then 758 

478 if a$="E"” then 2278 

488 goto 448 

498 print cl$:g=® 

588 if a>3 then goto 2768 

518 char 1,17,28,"supertes 
t" 

528 char 1,17,22,"(c) torsten sten 
zel” 

538 a$="funktion nr.1 -eingabe-":g 
osub 2158 

548 g=g+1:3$="fremdsprache:" 
2158 

558 input f$ 


W560 g=g+1:a$="anzahl der vokabeln( 


-1208 stc.):" 
578 input a 


:gosub 2158 


®580 if a>128 then 568 


598 if a<4 then 568 

688 gosub 128 

618 print c1l$:g=8 

628 for q=1 to a:let b$=str$(g):a$ 
=3$+b$ 

638 char 1,17,28, 
f" 

648 char 1,17,22,"”(c) torsten sten 
zel" 

658 a$="vokabel nr." 
g=-gt2:gosub 2158 

668 a$="deutsch:":g=g+1i:gosub 2158 
678 input d$(gq) 

689 a$=f$+":":g=g+1:gosub 2158 

698 input e$(gq) 


"supertes 


:let a$=a$+b$: 


788 if g>12 then g=B:print cl$ 

718 next gq 

720 a8="-- ende der eingab 
em ":g=g+13:gosub 2158 


730 for z=1 to 98®:next z 
748 goto 358 
758 print cl$:if a<i then gosub 22 


38:goto 358 

760 g-® 

778 char 1,17,208,"supertes 
b> . 


788 char 1,17,22,"{c) torsten sten 
zel" 

798 a$="funktion nr.2 -lernen-":go 
sub 2150:g=g+1 

888 a$="test nr.1”":gosub 2158:g=g+ 
1 

818 a$="wollen sie 
fi}oder":gosub 2158 
8798 3$="(f2)deutsch-"+f$+" lernen 


"+f$+"-deutsch( 


:gosub. 


<op> 
<pg> 
<df> 
<gi> 
<&LT> 
<ml> 
<bg> 
<mc> 


<eh> 
<gi> 
<po> 


<le> 
<ah> 


<ca> 
<dm> 
<ad> 
<ee> 
<gd> 
<ip> 
<nf> 
<if> 
<fg> 
<na> 
<eb> 
<kk> 
<od> 
<kn> 
<ab> 
<hh> 
<fm> 
<mce> 


<bj> 


<eg> 
<ie> 


<ej? 
<po> 
<pe> 
<jg> 


<jk> 


SUPERTEST 


?":gosub 2158 

838 get p$ 

848 if p$="Q" then 1=1:goto 878 
858 if p$="W" then 1=2:goto 878 
86 goto 838 ü 

878 g=-@:print cl$:g=g+ 

888 if 1=1 then a$=f$+"-deutsch":g 


osub 2158 

898 if 1=2 then a$="deutsch-"+f$:g 
osub 2158 

988 a$="wieviele woerter w.sie ler 
nen:":g=g+2:gosub 2158:input u 

918 if u<i then 988 

928 print cl$:g=2 

938 a$="ich w.ihnen e.wort auf den 
bildschirm":gosub 2158 

948 a$="schreiben und s.muessen da 
s jeweilige":gosub 2158 

959 a$-"fremdspr.oder deuts.wort d 
azu eingeben”:gosub 2158 

968 a$=-"viel spass...":gosub 2158 
978 for s=1 to 128@:next s 

988 for w=i1 to u:print c1$:g=2 

998 color 1,7,4:char 1,8,8, "CCECEECC 

ECCCCCCCCtest-nr.iCCCCCCEECEEECEEEE 


1888 char 1,8,18,"DDDDDDDDDDDDDDDD 
DDDDDDODDDDDDDDDDDDDDDDD" 

1B18 color 1,1,7 

1828 gosub 1748 

1838 char 1,17,28,"supertes 
t” 

1848 char 1,17,22,"(c) torsten ste 
nzei” 
19858 
1068 
1078 
1888 
1898 


z=-int (rnd( 1)*a) +1 

if u=z then 1858 

let u=z 

if z<i then 1858 

if 1=1 then a$=f$+":"+e$(z):g 
osub 2158 

1188 if 1=2 then a$="deutsch:"+d${ 
z) :gosub 2158 

1110 if 1=1 then a$="deutsch:":g=g 
+2:gosub 215@:input q$ 

1128 if 1=2 then a$=f$+":":g=g+2:g 
osub 215@:input q$ 

1138 if 1=1 and q$=d$(z) then 1188 
1148 if 1=2 and q$=e$(z) then 1189 
1158 if 1=1 then 1228 

1168 if 1=2 then 1270 

1178 stop 

1188 vol ?7:sound 1,788,25 

1198 char 1,18,18,zv$+zu$+zv$+tzv$+ 
"richtig"”:for p=1 to 888:next p:ch 
ar 1,18,18,bl$ 

1288 print cl$:vol B:next w 


<cd> 
<fb> 
<kd> 
<ok> 
<lb> 
<ce> 


<il> 
<eh> 


<al> 
<lm> 
<gj? 


<ig> 
<bl> 


<en> 
<pa> 
<oo> 
<pf> 


<fi> 


<dd> 
<cc> 
<mh> 


<hj> 


<pb> 
<dp> 
<en> 
<hg> 
<e3a> 


<jb> 
<la> 
<mo> 


<gf> 
<eg> 
<ga> 
<jk> 
<bi> 
<1ln> 
<fj> 


<im> 
<cp> 


er 
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1218 goto 1388 

1229 vol 8:gosub 186% 

1238 for s=1008 to 788 step -18:so 
und 1,s,1:next s 

1240 a$-"falsch,es war "+d$(z):g=g 
+2:gosub 2158 

1258 for s=i to 988:next s:r=rti1 
1268 print cl$:next w:g=12:goto 13 
22 

1278 vol8:gosub1869:fors-1088t 0789 
step-18:soundl,s,1:nexts 

1288 a$="falsch,es war "+te$(lz):g=-g 
+2:gosub 2158 


1298 goto1258 

1388 a$="-------ok test nr.t ist b 
eendet ------- ":gosub 2158:g=® 

1318 for p*1 to 78®:next p 

1328 print c1$ 

1338 a$-"funktion nr.2 -lernen-":g 
osub 2158:g=g+1 

13490 a$="test nr.2":gosub 215B:g=g 


+1 

1358 a$-"ich schreibe ihnen ein de 

utsches":gosub 2158 

1368 a$="u.zwei fremdspr.woerter a 

uf den":gosub 2158 

1378 a$="bildschirm-sie muessen nu 

n auf fi 0.f2":gosub 2158 

1388 a$="tippen u.so d.richtige lo 

esung finden.":gosub 2158 

1398 a$="wiev.durchgaenge wol.sie 

machen:":g=g+t1:gosub 215%8:input y: 
g=-Bd 

1488 if y<i then 1398 

1418 for h=1 to y 

1428 g=®:print c1$:color 1,7,4 
1430 char 1,8,8, "CECCCECECCCCCECte 
st-nr.iiCCCECCCECEEECEE" 

1448 char 1,8, 11, "CECELECCCCCCECEEE 

CECCCCCCECCCEGCLCECCCECE" 

1450 color 1,1,7 

1468 gosub 1748 

1478 z=int(rnd(1)*a)+1:if z<1 then 
1478 

1488 x=int(rnd( 1)*aJ+1:if x<1 then 
1488 

1498 let c=gqg 

1588 if z=x then 1478 

1510 g=g+r2:a$=f$+":"te$lz)+"(Fi)": 

gosub 2158 

1528 char 1,17,208,"supertes 
ad 

1538 char 1,17,22,"(c) torsten ste 

nzel" 

1540 g=g+1:a$=f$+":"te$lex)+"eF2)": 

gosub 2158 


<eh> 
<bk> 


<ck> 


<lo> 
<ci> 


<li> 
<an>? 


<jh> 
<gh> 


<bce> 
<fk> 
<gf> 
<cd> 
<pk> 
<nm> 
<]m> 
<ea> 
<dp> 
<op> 
<eo> 
<ij> 
<de> 
<hm> 
<nf> 
<jb> 
<po> 
<mm> 
<df> 
<hl> 
<ge> 
<el> 
<kn> 


<ml> 


<1lm> 


SUPERTEST 


1550 q=int(rnd( 1)#2)+1:if q<1 then 
1558 


1568 if u=qg then 1558 
1578 let u=q 


1588 if q=2 then a$="deutsch:"+d$( 
x):g=gt2:gosub 2150:g0oto 1638 

1598 if q=1 then a$="deutsch:"+d$( 
z) :g=gt2:gosub 2158:goto 1628 

1688 if c=q then 1558 

1618 goto 1558 

1628 let c$="" 

1638 if q=1 then let c$="f1":goto 
1658 

1648 if q=2 then let c$="f2":goto 
1658 

1658 get b$ 

1668 if b$="Q" then 1698 

1670 if b$="W" then 1698 

1688 goto 1658 

1698 if q=1 and b$="8" then 1948 
1788 if q=2 and b$="W" then 1948 
1718 vol 7:for s=588 to 1888 step 
18:sound 1,s,1:next s 

1728 gosub 1868:for p=1 to 789:nex 
tp 

1738 goto 1918 

1740 char 1,5,15,"U"+zg$+zg$+zg$+" 


I 

1758 char 1,5,13,"t e d" 

1760 char 1,5,16,"GW WH” 

1778 char 1,5,17,"T q Y" 

1780 char 1,5,18,"GJFKH"” 

1798 char 1,5,19,"J"+zv$+zh$+tzu$+" 
K” 


188@ char 1,5,14,b2$+"1" 

1818 char 1,5,20," N"+z2$+"M" 

1828 char 1,5,21,"0"+zm$+zm$+zm$+" 
p" 

1838 char 1,5,22,zj$+"ted"+z9$ 
1840 char 1,5,23, zn$+zn$+tzn$+zn$t+z 


1858 return 
1868 char 1,5,18,"GU"+zv$+"IH" 
1878 char 1,5,16,"G"tze$+"” "+ze$+" 


1880 char 1,5, 14,b2$+"y" 
1899 char 1,10,18,zu$+zu$+zu$+"fal 


1989 return 

1918 gosub 1868 

1928 r=r+t1:g=g+t1:a$="falsch,es war 
"+c$:gosub 2158:for p=1 to 69%:ne 
xt p:inext h 

1938 goto 1978 

1948 vol?:ssund 1,788, 15:char 1,1@ 
‚18, zv$trzuw$tzv$+zu$+tzu$+"richtig": 


<fk> 
<ek> 
<mo> 


<bd> 


<hl> 
<ko> 
<il> 
<san?> 


<hj> 


<ig> 
<oo> 
<io> 
<ko> 
<og> 
<po> 
<kg> 


<oj? 


<1lp> 
<jo> 


<fj> 
<fd> 
<dd> 
<da> 
<hk> 


<db> 
%.33? 
<mk> 


<gg> 
<dn> 


<ehb> 
<ba> 
<dm> 


<kc> 
<1j> 


<dh> 
<he> 
<hp> 


<mi> 
<nh> 


forp=1t0788:nextLp 

1958 char 1,18,18,b1$+b2$ 

1968 next h:goto 1970 

1978 print cl$:g=4 

1988 a$="----funktion nr.2 -lernen 
- beendet----":gosub 2158 

1998 1=int( 188/(y+tu)*r) 

2088 v$=str$(1) 

2mi8 for p=1 to 588:next p 

2028 a$="sie hatten "+v$+"% d.voka 
.falsch":g=g+2:gosub 2158 

2838 if 1>5 and 1<15 then n=2 

2B48 if 1<5 then n=1 

2858 if 1>14 and 1<38 then n 
2868 if 1>29 and 1<58 then n 
28078 if 1>49 and 1<68 then n= 
2888 if 1>59 and 1<78 then n 
2898 if 1>78 then n=6 

2188 let n$=str$(n) 

2118 a$="ihre testnote ist "+n$:g= 
g+i:gosub 2158 

2128 g=g+2:a$="ich hoffe ihre "+f$ 
+"-kenntnisse"”:gosub 2158 

2138 a$="sind jetzt etwas besser.. 
.":gosub 2158 

2148 for p=1 to 1888:next p:goto 3 
58 

2158 f=8 

2168 vol 7? 

2178 char 1,1,g,left$(a$,f) 

2188 let b=len (a$) 

2198 sound 3,88®, 1 

2288 if f>b then g=g+1:vol @:retur 
n 

2218 f=f+1:if f>49 then f=8 

2228 goto 2178 

2238 g=1:3$="ich habe noch keine v 
okabeln"”:gosub 2158 

2240 a$="im speicher...... error... 
!!":gosub 2158 

2258 for t=1 to 688:next t 

2268 return 

22780 print cel$:g=B 

2288 char 1,17,28,"supertes 
f" 

2298 char 1,17,22,"(c) torsten ste 
nzel" s 

2382 a$="funktion nr.2 -medium-":g 
osub 2158 

2318 a$="wollen sie (f1)laden oder 
(f2)saven ?":g=g+2:gosub 2158 

2328 getkeyb$:ifb$<>"Q"andb$<>"wW"t 
hen2328 

2330 a$="(f1) diskette oder (f2) k 
assette ?":g=g+t2:gosub2158 


2348 getkeym$:ifm$<>"W"andm$<>"Q"t 


hen2348 
2358 if b$="W" then 2388 


2368 if b$="Q" then 2548 
2378 goto 2328 


2388 if a<4 then print cl$:gosub 2 
238:goto 358 

2398 ifm$="Q"thena$="diskette":els 
ea$="kas.in rekorder" 

2488 a$="saven-"+a$+" einlegen 
gosub 2159:g=g+1 

2418 a$="name des files:":gosub 21 
5@:input n$ 

2428 a$="notieren sie sich den fil 
ename":gosub 2158 

2438 a$="und d.anzahl der vokabeln 
-":gosub 2158 

2AAB a$-"(fuer spaeteres laden...! 
t!)":gosub 2158 

2458 b$=str$(a):a$="es sind..."+b$ 
#* ste." :gösuh 2158 

2468 ifn$=-"W"thenepen 1,1,1,n$:els 
eopen1,8,8B,"@:"+n$+",s,w" 

2478 printfi1,f$ 

2488 forg=Itoa:print#1,e$(g):print 
#1,d$(g) :next 

2498 close 1 

2588 print c1$:g=14 

2510 a$="---------------ende save- 
a ":gosub 2158 

2528 for p=1 to 68%:next p 

2538 goto 358 - 

2548 if a>2 then goto 2668 

2558 if m$="Q"thena$="diskette":el 
sea$="kas. in recorder” 

2568 g=g+1:a$="load-"+a$+" einlege 
n":gosub2158 

257@ a$="anzahl der vokabeln:":gos 
ub 2158:input a 

2588 dim e$(a):dim d$(a) 

2598 a$="name des files:":gosub 21 
58:input n$ 

2608 ifm$="W"thenopen 1,1,8,n$:els 
eopen1,8,8,"@:"+n$+",s,r" 

2618 input#1,f$ 

2628 forg=Itoa:inputf#i,e$(g) :input 
#1,d$(g) :next 

2638 close 1 

2640 print cl$:g=14:3$="---------- 
—--ende load :gosu 
b 2158 ki 

2658 for p=1 to 6@®:next p:goto 35 
8 

2668 print c1l$:g=2:a$="der vokabel 
speicher ist voll...":gosub 2158 
2678 a$="wollen s.die alten vok.lo 
eschen( f1=ja) ?":gosub 2158 


2688 get a$ <eb> 
2698 if a$="Q" then 2728 <bk> 
2708 if a$="" then goto 2688 <nh> 
2718 goto 358 - <In> 
2728 a$="ok...ich loesche...":gosu 

b 2158:for p=1 to 6®88:next p <mk> 
2738 clr:gosub2838 <fi> 
2748 print c1$ <hi> 
2758 goto 2548 <jm> 
2768 print cl$:g=2 <ea> 
2778 a$="der vokabelspeicher ist v 
oll,soll ich":gosub 2158 <im> 
2788 a$="neu starten (f1=ja)?":gos 

ub 2158 <fe> 
2798 get b$ <lc> 
2888 if b$="" then 2798 <nl> 
2818 if b$-"R” then elr:gosub2B3B: 

goto 119 <mor 
2828 goto 358 ke 
2832 rem nachspann ==== s=ms= <g]l> 
?P84B rem *# farbeodes/steuercodes 7 <mf> 
2858 c1$=chr$({ 147) <gb> 
2B68 rem *##** zeichensatz/graphik * <ld> 


2878 z2$=chr${ 163) :29$=chr${ 178) <pj? 
2888 ze$=chr$( 175) :zg$=chr$t 177) <pp> 
2898 zh$=chr$( 178) :zj$=chr$( 189) <nj> 
2988 zm$=chr$( 183) :zn$=chr$( 184) <aa> 


2912 zv$=chr${ 192) :b1l$=chr$( 32) <df> 
2928 b2$=b1$+b1$:b1$=b2$+b2$ <pa> 
2938 b1$=b1$+b1$+b2$:return <ol> 
2948 rem ==================8======= (9g> 
2950 rem 12277 bytes memory <ea> 
2968 rem 88482 bytes program <aj? 
2978 rem 89238 bytes variables <kk> 
2988 rem 99844 bytes arrays <jn> 
2998 rem 89482 bytes strings <bd> 
3888 rem 93031 bytes free (B) <ko> 
3B10 rem ========================= cko> 


fa nn nn nen Pan DS nen en 1 ee 3 a nun 


2. Vorher mit Fl eingegebene Vokabeln 
abspeichern. 
Wählen Sie nun Fl oder F2... 


1. Load 

Der Computer fragt Sie nach dem Filenamen 

(z.B. Lektionsname) und der Anzahl der Vokabeln, 

um entsprechend Speicherplatz zu reservieren. 

Haben Sie noch alte Vokabeln im Speicher, so wer- 

den Sie gefragt, ob Sie diese löschen wollen (nur 

so kann der Computer laden). 

2. Save 

Um die.gewünschten Vokabeln abzuspeichern, 

benötigt der Computer einen Filenamen (z.B. Lek- 

tionsname). Wichtig: Notieren Sie sich den File- 

und die Anzahl der Vokabeln (für späteres 
aden). 
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Jetzt perfekt: 
Unser Checksummer 


Hatte bisher unser 
Checksummer an Buch- 
stabenvertauschungen 
nichts auszusetzen, so 
zeigt er sich nun nicht 
mehr so kulant. 

Ob Sie mit der alten 
Version nun eingegeben 
hatten: 


10 print”ab” 
oder 
10 print “ba”, 


der Checksummer 
brachte in beiden Fällen 
die Prüfsumme < gk>. 
Leicht kann es vorkom- 


men, dafs beim schnel- 
len Tippen, besonders 
im Zehnfingersystem, 


die Taste, die eigentlich 
erst als übernächste dran- 
kommen sollte, ein wenig 
zu früh erwischt wird. 
Dem Checksummer, der 
lediglich die Ascii-Werte 
der Buchstaben addierte, 
konnte dieses natürlich 
nicht auffallen. Was also 


tun? Ob etwasfrüher oder: 
‘° Prüfsumme<jd> 


später addiert wird, än- 
dert nichts am Resultat 
der Summe. Anders ist 
es, wenn man zwei Ver- 
knüpfungsarten kombi- 
niert. So ist z.B. 2*30+40 
etwas anderes als 2*40+ 
30. Und genau dieses war 
dann die Lösung. Die 
Summe wird nun einfach 
durch eine Linksver- 
schiebung vor jeder Addi- 
tion verdoppelt. Da- 
durch, daß im Falle, 
wenn das Ergebnis größer 
als 255 ist, der dabei ent- 
stehende Übertrag als 
Wert 1 zusätzlich addiert 
wird, verflüchtigen die 
Werte der am Anfang der 
Zeile gefundenen Codes 
sich nicht nach 8 weite- 
ren Zeichen. Damit bleibt 
nicht nur die Aussage- 
kraft der Prüfsumme voll 
erhalten, sondern erfährt 


sogar eine 
Steigerung. Und vor allen 
Dingen wird nur eine 
klitzekleine Änderung er- 
forderlich, die dieses zu 
vollbringen, in der Lage 
ist. Ein einziges Byte ist 
nur zu ändern. Wir tun 
dieses mit “poke 345,10” 
in der Zeile 470. Dadurch 
wird das hier ursprünglich 
ansässige CLC (Clear Car- 


'ry) durch ASL (Arithme- 


tik Shift Left) ersetzt. 
Die nachfolgende Addi- 
tion mit ADC (Addiere 
mit Carry) addiert den 
Ascii-Code des gefunde- 
nen Zeichens und den 
nach links herausgeshifte- 
ten Übertrag. Da einige 
unserer Leser beklagten, 
daß das Checksummer- 
listing nachher noch im 
Programmspeicher stehen 
würde, haben wir diesem 
noch mit einem “new” 
abgeholfen. New bzw. 
neu ist nun folgendes. 


10 print“ab” ergibt die 
10 print”ba” die Prüf- 


summe<jf> 

Sie brauchen den 
Checksummer nicht neu 
einzutippen. Alles, was 


Sie tun müssen, ist, die 
Zeile 470 anzufügen. An 
der Bedienung des Check- 
summers hat sich nichts 
geändert. Die Eingabehin- 
weise bleiben daher wie 
gehabt. 


EINGABEHINWEISE 


Am rechten Rand jedes 
Listings, jeweils am Ende 
einer Eingabezeile, finden 
Sie zwei Buchstaben zwi- 
schen einem Kleiner- und 
einem Größerzeichen ein- 
geschlossen. Diese dürfen 
Sie nicht mit in Ihr 


erhebliche 


Listing eintippen, son- 
dern sie dienen Ihnen zur 
Überprüfung Ihrer Ein- 
gabe. 

Zwischen dem Kleiner- 
und dem Größserzeichen 
am rechten Rand be- 
finden sich zwei Buch- 
staben. Mit einem speziel- 
len Programm können Sie 
beim Eintippen Ihre Ein- 
gabe auf ihre Richtigkeit 
überprüfen. Dieses Pro- 
sramm, der Checksum- 
mer, sorgt nämlich dafür, 
daß nach erfolgter Zeilen- 
eingabe am linken oberen 
Bildschirmeck zwei Buch- 


ERST SICHERN, DANN 
AUSPROBIEREN 


staben ausgegeben wer- 
den. Wenn diese Buch- 


staben nicht mit den vor-' 


her erwähnten Buchsta- 
ben in unserem Listing 
übereinstimmen, so kön- 
nen Sie davon ausgehen, 
daß Sie sich vertippt 
haben und können sich 
so die Zeile nochmals 
näher ansehen, ob Sie 
Ihren Eingabefehler fin- 
den. Wenn Sie dann alles 
richtig getippt haben, so 
stimmen die Buchstaben 
überein und Sie können 
sich getrost der nächsten 
Zeile zuwenden. 

Das Checksummer- 
listing hat noch keine 
Prüfsummen. Seien Sie 
deshalb besonders auf- 
merksam, daß alles pafit 
und speichern Sie dieses 
Programm unbedingt ab, 
bevor Sie es starten! Bei 
einem Tippfehler würde 
es sich wahrscheinlich auf 
Nimmerwiedersehen ver- 
abschieden und Sie müß- 
ten die ganze Arbeit ver- 
mutlich nochmals ma- 


39 


- der 


chen. Wenn Sie es gestar- 
tet haben, so geschieht 
nichts Besonderes. Der 
Computer meldet sich 
einfach kurz darauf mit 
„READY”, und. das war 
auch schon alles. Alles 
sollte nun wie immer 
funktionieren, mit der 
kleinen Ausnahme, daß 
nunmehr nach jeder Ein- 
gabe im Direktmodus 
eine Prüfsumme erscheint. 
Nehmen Sie zum Testen 
irgendeine kurze Basic- 
zeile aus unserem Heft 
her und testen sie aus. 
Wenn die Summen über- 
einstimmen, so können 
Sie sich freuen, denn 
Fehler beim Abtippen 
werden Ihnen nun in Zu- 
kunft viel weniger passie- 
ren, als vorher. 


EINER FÜR ALLE, EIN 
ECHTES UNIVERSAL- 
PROGRAMM 


Unseren Checksummer 
können Sie verwenden, 
ob Sie einen C16/116/ 
Plus4 oder ob Sie einen 
C64 oder gar einen C128 
haben. Nur müssen Sie 
beim letzteren beachten, 
ob Sie auch wirklich im 
40-Zeichenmodus sind. 
Nachdem Sie den Check- 
summer geladen und ge- 
startet haben, können Sie 
Ihr Basicprogramm ein- 
geben wie gewohnt, Sie 
können es abspeichern, 
Sie können auch laden, 
Sie können Kürzel ver- 
‚wenden und, ob Sie ein 
paar Leerzeichen mehr 
oder weniger verwenden, 
Checksummer läßt 
sich dadurch nicht aus 
der Fassung bringen. Ein 
bißchen Vorsicht sollte 
man allerdings walten 
lassen, wenn man Pro- 
gramme eingetippt hat, 
in denen Peeks und Pokes 
vorkommen. Es wird 
zwar nicht besonders 
häufig vorkommen, aber 


es könnte bisweilen ge-39 


« 
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285 
218 
228 
:238 
248 
t 
258 
268 
278 
288 
298 
388 
318 
ıne 
328 
go 
338 
348 
358 
368 
378 
388 
398 
488 
418 
428 


438 


448 
458 
468 
478 
488 
498 
588 
518 
52® 
538 
548 


rem =checksummer==c16 c64 c128== 
rem (p) 85/87 commodore welt == 
ren Be 
rem (c) alfons mittelmeyer == 
rem == 
rem c16/116/plus4 == 
rem c64 x == 
rem c128 (4ABß-zeichen) == 
rem ================2=2= == === ===== 
rem --------------- .------------ 
rem grundroutine (c16) 

rem ms 


data165,859,872,165,8690,872,832 
data®@86, 137,184,133,86®8, 184,133 
data859,152,9872,168,888, 165,828 
dataß24,181,821,17909,90924,144,811 
data281,0832,248,806,138,824,113 
data859,234,178,280,177,859,234 
data288,248,169,9831,972,138,974 
data074,974,074,072,138,841,815 
data872,169,831,872,162,803, 104 
dataB24,185,129,157,088,812,282 
dataB16,246,184,168,096 
l1t=peek( 772) :ht=peek( 773) 
fori=312t0386:readx:pokei,x:nex 


iflt<>124then358 

rem Sm mm a a 
rem anpassung c64 

rem. Sms 


fori=312t0317:pokei,234:next 
fori=32it0326:pokei,234:next 
fori=1to6:readad:readx:pokead,x 
xt 
poke388,4:poke319,1t:poke328,ht 
t0438 

data346, 121,347,088,348,0082 
data351,185,352,888,353,882 
iflt<>13then438 

rem rem ee m 
rem 
restore418:poke332,22 
poke335,23:goto31® 
data313,861,316,862,323,862 


data326,861,347,861,352,861 
poke772,856:poke 773,1 

rem -------- ------ 
rem ergaenzung 18/87 

rem ---------------- 
poke 345 .18:new 

rem =====3=2=-=2=-=-=-=-=2220=-==2=--.- = 
rem = fuer hefte cw 7/87 bis >= 
rem = cw 9/87 sowie cw128 5/8B7= 
rem = und ci6 6/8? ist die :- = 
rem = poke-anweisung in zeile = 
rem = 47B wegzulassen = 
rem ================2=========== 


schehen, dai® nach dem 
Laufenlassen eines Pro- 
grammes weder der 
Checksummer noch sonst 
etwas mehr funktioniert, 
auch wenn dies bisher 
ohne Checksummer nicht 
der Fall gewesen sein 
sollte. Also bitte sichern 
Sie in jedem Falle Ihre 
Programme, bevor Sie sie 
ausprobieren. 

Ein paar Dinge sollten 
Sie noch wissen. Wir 
drucken in unseren Li- 
stings des öfteren Punkte 


statt Leerzeichen. Wenn 
Ihnen nun aber: -Leer- 
zeichen besser gefallen, 
so liefert der Checksum- 
mer natürlich eine falsche 
Summe. Wenn Sie diese 
Richtigkeit überprüfen 
wollen, so können Sie 
dies tun, indem Sie sie 
zuerst einmal so wie im 
Heft abtippen, und nach- 
her, nachdem Sie sie nach- 
geprüft haben, einfach 
wieder die Punkte durch 
Leerzeichen ersetzen. 

A. Mittelmeyer 


FOTO 


Ein Programm für den 
„Profi-“ und Hobbyfoto- 
grafen, der mit den Be- 
griffen Schärfentiefe, 
Entfernungsblendenein- 
stellung, Abbildungsmaß- 
stab, Vorsatzlinsen, Farb- 
temperatur, Blitzberech- 
nung und Tabellen etwas 
anfangen kann. 

Aus diesen Menüpunkten 
kann zu Beginn des Pro- 


grammes ausgewählt wer- 
den. Sodann fragt das 
Programm nach den ent- 
sprechenden Daten, z.B. 
Brennweite, und rechnet 
dann die gewünschten 
Ergebnisse selbständig aus. 
Weiterer Erklärung bedarf 
es eigentlich nicht, dem 
fotoversierten Anwender 
erklärt sich dieses Pro- 
gramm von selbst. 


UNSER 
Z TELEFONSERVICE & 


Alle Experten der CBM REVUE/COMMODO- 


RE-WELT stehen unseren Lesern jeden Mitt- 


woch zwischen 


15.00 und 19.00 Uhr zur 


Beantwortung aller Fragen unter der Telefon- 


nummer 


089/1298013 zur 


Verfügung. 


Ebenso der Abo- und Kassettenservice. Ein- 
fach anrufen! 089/12980 14! 


KAUFMANN 


Das Programm ermöglicht 

dem Anwender im kauf- 

männischen Bereich die 

schnelle Erstellung von: 

— Auftragsbestätigungen 

— Rechnungen / Liefer- 
scheinen 

— Mahnschreiben 

— Adressaufklebern 

Der Plus/4 fragt je nach 
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Untermenüpunkt die ent- 
sprechenden Daten ab, 
z.B. Artikelart und -menge. 
Preise, Versandform oder 
Zahlungsbedingungen. 
Sind alle erforderlichen 
Angaben gemacht, druckt 
der Computer den ge- 
wünschten Beleg aus. 
Listing ab Seite 46 


r91T@ 


9a r 
100 
118 
120 
138 
148 
150 
168 
178 
188 
198 
208 
218 
228 
238 
248 
250 
2608 
278 
2828 
are" 
298 
300 
310 
328 
338 
340 
358 
n Ei 
368 
3708 
380 
398 
480 
4108 
429 
438 
440 
458 
468 
478 
488 
4908 
Mod 
508 
518 
5228 
538 


em (c) by bernd welte 


em version 3.5 
em c16/c116/plus4 


em zz zz 52 >= >22 32 3 >> 2222 
fori=1t0o38:b$=b$+" ":next 
b2$=" RS ":b3$=b2$+" 13 
bAa$=b3$+" ":b5$=bAg+" " 
b6$=b5$+" ":57$=b6$+" " 


printchr$( 014) 
c4$=chr$( 817) :c1$=chr$( 147) 
re$=chr$( 828) :b1$=chr$( 931) 
rn$=chr$( 818) :rf$=chr$( 146) 
zz$=chr$( 042) 
forg=1to19:qga$=ga$+tc4$:nextg 
forg=1t03:q93$=q3$+c4$:nextgq 
forgq=1t049:gb$=gb$+zz$:nextgq 
ze=2035:sp=2036:cu=65528 
wd$="Weitere Daten ? (j/n)" 
wt$="Weiter bitte Taste" 
bw$="Bitte waehlen Sie" 
printcl$gb$; 

print"*"b$"*" 


print"*"b5$b5$"AGB Welte Softw 


b5$b5$" +" 
print"#"pg"*" 
printgb$; 
print 
print 
print" [1] 
print 
print" [2] 
nstellung" 
print 
print" 
print 
print" 
print 
print" 
print 
print" 
print 
print" 
print 
print" 
print 


Schaerfentiefe 


[3] 
Vorsatzlinsen"b4$ 
Farbtemperatur 
Blitzberechnung 
Tabellen"b5$b4$ 


[8] Ende"left$(b$, 13) 


printb4$"Bitte waehlen sie das 


3 


ul aus 
geta$:ifa$=""then52® 
ifa$="1"then6®® 
ifa$="2"then1128 
ifa$="3"then137® 


Entfernungs -Blende 


Abbildungsmassstab" 


" 


<ae> 
<op> 
eng> 
<ne> 
<pd> 
<ah> 
<kk> 
<le> 
<ig> 
<lc> 
<gl> 
<ep> 
<fk> 
<np?> 
<id> 
<lg> 
<dn> 
<12> 
<nn> 
<op> 


"<am> 


<md> 
<jd> 
<kp> 
<ak> 
<hl> 
<nl> 


<di? 
<pd> 
<eo> 
<ah> 
<bl> 
<oa> 
<ed> 


<ab> 
<gl> 
<gi> 
<jd> 
<gf> 
<lm> 
<a3> 
<oe> 
<em> 
<xam> 
<hl> 
<de> 
<bk> 
<fm> 


<ac> 


<ik> 
<bm> 
<kl> 
<hn> 
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548 
558 
568 
578 
582 
599 
608 
618 
elle"b5$b4$ 
628 print" 

messer in mm":print:inputc$ 
630 c=vallc$) 

6408 c=c/1208 


ifa$="4"then 1828 
ifa$="5"then2730 
ifa$="6"then2840 
ifa$="7"then3898 
ifa$="8"thenend 

goto5B® 

printc1$ 


printb4$b4$"Schaerfentiefentab 


Zerstreuungskreisdurch 


658 print:print"Brennweite in mm": 


print:inputf$ 
668 fF=val(f$) 
670 f=f/1080 


688 print:print"Gegenstandsweite i 


n m":print:inputg$:printcl$ 
690 g=vallg$) 
708 ifg>fthen?58 


718 printc4$re$b4$"Bedingung"bl$ 
Gegenstandsweit 


720 printc4$rn$" 
e > als Brennweite er 


738 printrn$left$(b$,13) "nicht erf 


uvellt!"b6$b6$rf$ 


748 print" Neuer Wert":inputg$ 
750 g=vall(g$) 

760 w=sqr(2) 

770 b=1 

788 fori=1t018 

798 h=f#f/(b*c) 

800 k=h*g/(h+tg-F) 

818 ifh+f>gthen93Bd 

828 b=int((b+.85)*10)/18 

830 h=int((h+.85)*1080) / 1000 
848 k=int((k+.25)*1000) /1000 
858 l=int((1+.85)*1000) /10080 
868 pokeze,3:pokesp, 1d:syscu 
870 print"Blende"; :printtab(28);:p 


rintusing"##.##";b 
888 pokeze,6:pokesp,4:syscu 


898 print"Hyperfokale Entfernung 
‚:printusing"###.####" ;h;:print" m 


988 printc4$b?$"minimale Entfernun 


g ";:printusing"#HH.AHA#";k;:print 


m 


918 printc4$b?7$"maximale Entfernun 
g ";:printusing"##HH.####";,1,:print 


goto19248 

l=h*g/(h-g+fF) 
b=int((b+.05) #10) /18 
h=int((h+.05) *19080) /1008 
k=sint((k+.85) *1000) /1000 


zae> 
<ok> 
<cj? 
<kb> 
<ba> 
<ko> 
<dc> 


<ac? 


ds I I 
<bg> 
<jo> 


<dj> 
<db> 
<no> 


<ha> 
<ik> 
<pe> 
<nd> 


<ja> 


<mh> 
<fj> 
<gm> 
<ka> 
<mf> 
<og> 
<ad> 
<ba> 
<df> 
<cl> 
<he> 
<oe> 
<jd> 
<hb> 


<kg> 
<]k> 


<nb> 
<iT> 


<ba> 
<00> 
<hf> 
<ef> 
<je> 


<ico3 


FOTO 


978 1l=int((1+.25)*1000) /1008 

988 pokeze,3:pokesp, 1d:syscu 

998 print"Blende";:printtab( 28) ;:p 
rintusing"##.##";b 

10800 pokeze,6:pokesp,4:syscu 

1810 print"Hyperfokale Entfernung 
";sprintusing"###.#HH##" ;h;:print" 
m" 

1828 printc4$b7$"minimale Entfernu 
ng ";:printusing"#H#.#4##",k;:prin 
Er Mm 

10838 printc4$b7$"maximale Entfernu 
ng ";:printusing"#H#.#4##" ,1;:prin 
ti” m" 

1040 b=b*w 

1058 char!,12,20,wt$ 

1060 wait198,63:nexti 

1070 char1,12,20,wd$ 

1080 geta$:ifa$=""then1982 

1898 ifa$="j"thenprintc1l$:g0t0648 
1108 ifa$="n"then268 

1112 goto198% 

1128 printcl$q3$" Optimale Entfern 
ungs Blendeneinstellung" 

1130 printgq3$" Zerstreuungskreis 
Durchmesser in mm" 

1148 print:inputc$ 

1150 c=val(c$) :c=c/1008 

1168 printc4$" Brennweite in mm":i 
nputf$:print 

1178 f=vallf$) :f=f/1908 

1180 print:print" Minimale Entfern 
ung in m":inputk$:k=val(k$) 

1198 print:print" Maximale Entfern 
ung in m":inputl$:1=val(1$) 

1200 g=2*K*1/(k+l) 

1218 h=(2#*kK#1-FHCk+l)) /CI-K) 

1220 b=f*f/(h*c) 

1230 g=int((g+.005) *100)/100 

1248 h=int( (h+.885) *100) / 1908 

1258 b=int((b+.95)*18)/18 

1268 printcl1$c4$" Optimale Enfernu 
ng"b5$"=";g"m":print 

1278 print:print" Hyperfokale Entf 
ernung =";h"m":print 

1288 print:print" Mindest Blendenw 
ahl"b4$"=";b:print 

1298 char1,10,20,wd$ 

1300 geta$:ifa$=""then1300 


1318 ifa$="j"then1128 

1320 ifa$="n"then268 

1338 g0t01388 

1348 rem ------------------------- 
1358 rem abbildungsmassstab 
1368 rem --------------------7 - 
1370 printc1l$qg3$b5$b4$"Abbildungsm 
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assstab" 

1380 printc4$" 
in mm eingeben." 
1398 printc4$b6$"Was soll berechne 
t werden?" 

1408 printc4$ 

1410 printc4$b5$b5$"[ 1] 
massstab" 

1428 printc4$b5$b5$"[2] 
laengerung" 

1438 printc4$b5$b5$"[ 3] 


Alle Masse bitte 


Abbildungs 
Auszugsver 
Brennweite 


1449 
1458 
1468 
1470 
1480 
1498 
1508 
1518 
1520 


printc4$b5$b5$"[4] Hauptmenue 
char1,180,20,bw$ 
geta$:ifa$=""then1462 
ifa$="1"then 1528 
ifa$="2"then 1620 
ifa$="3"then 1728 
ifa$="4"then268 

goto1468 
printel$q3$" 
tab":print:print 
1538 printc4$" Brennweite":print:i 
nputbr$:br=val(br$) 

1540 printc4$" Auszugsverlaengerun 
g":print:inputas$:as=val([as$) 

1550 ab=as/br 

1568 printc4$" Abbildungsmassstab" 
:print:print:printtab( 7) ;ab":1" 
1578 char1!,10,20,wd$ 

1580 geta$:ifa$=""then1570 

1598 ifa$="j"then 15298 

1608 ifa$="n"then1358 

1610 g0t01578 

1628 printc1l$a3$" Auszugsverlaenge 
rung" :print:print 

1630 printc4$" Brennweite":print:i 
nputbr$:br=val(br$) 

1648 printc4$" Abbildungsmassstab" 
:print:inputab$:ab=val(lab$) 

1658 as=br*ab 

1668 printc4$" Auszugsverlaengerun 
g":print:printtab( 7) ;as"mm" 

1698 char!,10,20,wd$ 

1680 geta$:ifa$=""then1688 

1698 ifa$="j"then1628 

1708 ifa$="n"then 1358 

1710 goto1688 

1728 printcel$gq3$b4$"Brennweite"b6$ 
:print:print 

1738 printc4$" Auszugsverlaengerun 
g":print:inputas$:as=val(as$) 

1740 printc4$" Abbildungsmassstab" 
:print:inputab$:ab=vallab$) 

1750 br=as/ab 


Abbildungsmasss 


<hj> 
<db> 


<mb> 
<de> 


<seo> 
<il> 
<da> 


<pp> 
<pb> 
<ka> 
<jo> 
<id> 
<of> 
<ek> 
<pi> 


<ee> 
<nd> 


<nc> 
<i> 


<ek> 
<kh> 
<fn> 
<fk> 
<pg> 
<ip> 


<go> 
<ep> 


<n]l> 
<mf> 


<di> 
<mm> 
<nd> 
<ge> 
<ee> 
<cj> 


sei> 
<op> 


<cl> 
<km> 


FOTO 


1768 printc4$" Brennweite":print:p 
rinttab( ?) ;br"mm" 

1778 char1,19,20,wd$ 

1788 geta$:ifa$=""then1789 

1790 ifa$="j"then1720 

18080 ifa$="n"then135® 

1818 g0t01788 

1820 printcl$ 

1830 printb5$b5$"Linsenkombination 
en":print 

1840 printc4$"Aus Objektivbrennwei 
te und Vorsatzlinse" 

1850 printc4$b4$"wird das Gesamtsy 
stem errechnet." 

1860 char1,10,28,wt$ 

1870 wait198,63 

1880 printchr$( 147) 

1898 print:print" Brennweite in mm 
":print:inputf 

1980 print:print" Brechkraft in Di 
optr.":print:inputd 


1918 Fi=(1/f)*1000:f2=f1 
1920 gb=fi+d:gf=1/gb:d2=1/d 
1938 printcol$ 


1948 print:print" Brennweite"b5$;Ff 
"mm =";f2"Dioptrien" 

1958 d2=int((d2+.0805) *1900) / 1900 
1968 print:print" Brechkraft"b5$;d 
"Dioptrien =";d2"mm" 

1978 gf=int((gf+.0005)*1080) /1008 
1980 print:print" Gesamtsystem . 
;gb"Dioptr.=";gf"mm" 

1998 char1,18,20,wd$ 

2000 geta$:ifa$=""then2900 

2010 ifa$="j"then1880 

2020 ifa$="n"then26B 

2838 goto29BDd 

20848 printcl$:printb5$b4$"Blitzlic 
htberechnungen"b5$b4$ 

2858 print 

2068 printb?7$"Was soll berechnet w 


erden?":print 

2878 print 

2888 print" [1] Blitzentfernung":p 
rint 

2898 printc4$" [2] Blitzentfernung 


bei 
2188 
int 
2118 
2128 
2138 
2148 
2158 
2168 
2178 


Nahaufnahmen":print. 
printc48$" [3] Blendenzahl":pr 


printc4$" [4] Menue" 
print 

char1,13,28,bw$ 
geta$:ifa$=""then2148 
ifa$="1"then2208 
ifa$="2"then2298 
ifa$="3"then2598 


<lf> 
<bd> 
<pl> 
<ne> 
<jg> 
<mc> 
<me> 


<cp> 
<nh> 


<li> 
<hb> 
xnk> 
<bc> 


<1lp> 


<hd> 
<dj> 
<jn> 
<kp> 


<nh> 
<bb> 


<im> 
<om> 


<oa> 
<kk> 
<hp> 
<em> 
<bf> 
<cb> 


<hn> 
<kn> 


<ga> 
<nf> 


<bm> 


<kn> 


<mi> 


<hm> 
<dj> 
<in> 
<dm> 
<ci> 
<0a> 
<bi> 


43 


2180 ifa$="4"then26% 

2198 goto2148 Lo. 

2280 printcl$q3$" Leitzahl d.Blitz 

es":print:inputle 

2218 print 

2220 printc4$" Blende":print:input 

bl 

2238 be=le/bl 

2248 printc4$" Entfernung Blitz > 
Motiv ="be"m" 

2250 char1,13,20,wd$ 

2268 geta$:ifa$=""then2268 

2270 ifa$="j"then2280 

2288 ifa$="n"then2940 

2298 printcl$:print:printc4$" 
soll errechnet werden?" 

2388 print:print:print:printc4$" 
";:printrn$"E"rf$"ntfernung" 

2318 printc4$" ";:printrn$"B"rf$" 
lende" 

2320 char1,13,28,bw$ 


Was 


2330 geta$:ifa$=""then2339 

2348 ifa$="e"then24708 

2358 ifa$="b"then2378 

2368 g0t02330 

237® printcl$:printc4$" Entfernung 


":print:inputbe 

2388 printc4$" Leitzahl":print:inp 

utle 

2398 printc4$" Abbildungsmassst.": 

print:inputab 

2480 bl=le/be/(ab+1):bl=int((bl+.® 

5)*19)/18 

2418 printc4$" Blende ="bl:print 

2420 char1,13,20,wd$ 

24380 geta$:ifa$=""then2430 

2448 ifa$="j"then2378 

24508 ifa$="n"then2948 

2460 goto2430 

2478 printcl$g3$" Leitzahl d.Blitz 

es":print:inputle 

2488 print 

2498 printc4$" Blende" :print:input 

bl 

2598 printc4$" Abbildungsmasst.":p 
rint:inputab 

2518 be=le/(b1*(ab+1)) 

2520 be=int((be+9.005)*100) /100 

2538 printc4$" Entfernung Blitz > 
Motiv ="be"m" 

2548 char1!,15,20,wd$ 

2559 geta$:ifa$=""then2558 

2568 ifa$="j"then2298 

2578 ifa$="n"then28408 

25890 goto2558 

2598 printcel$q3$" Blitzentfernung" 


<1ln> 
<fi> 


<ije> 
<oo> 


<oc> 
<nj?> 


<pc> 
<cl> 
<bk> 
<pn> 
<fk> 


<pf> 
<gi> 


<aa> 
<mj> 
<kd> 
<al> 
<ci> 
<kf> 


<gd> 
<ke> 
<jo> 


jo? 
<ep> 
<cj? 
<dm> 
<dp> 
<fd> 
<ee> 


<ke> 
<am?> 


<ml> 


<fo> 
<oj> 
<nb> 


<oa> 
<ag> 
<ei> 
<nd> 
<kc> 
<fn> 


FOTES 


:print:inputbe 

2602 print 

2610 printc4$" Leitzahl":print:inp 
utle 

2622 print 
2638 bl=le/be 
2648 printc4$" Blende =";bl 

2658 char1,13,20,wd$ 

2660 geta$:ifa$=""then26608 

2670 ifa$="j"then25908 

2680 ifa$="n"then2040 

2698 g0t02668 

2780 rem See 
2710 rem 
eel: ven, Fee 
2730 printcl$q3$left$(b$, 13) "Farbt 
emperatur" 

2748 printq3$" Berechnung der Farb 
temperatur nach Ein- "; 

2758 printc4$" gabe von 2 Werten. 
Wenn kein Wert vor-" 

2768 printc4$b5$b4$"handen,dann ® 
eingeben." 

2778 char1,10,20,wt$ 

2780 wait198,63 

27908 printcl$qg3$" Farbtemperatur d 
er Beleuchtung.":print:inputa$:a=v 
al(a$) 

28088 ifa<@then2798 

2818 printc4$c4$" Farbtemperatur d 
es Filmes":print:inputbb$:b=val(b 
b$) 

2828 ifb<Q®then2819 

2838 ifa+b=@then2798 

2848 printc4$" Korrektureigenscha 
ft des Filters in":print c4$" Mir 
ed" 

28580 print:inputk$:k=val(k$) 

2868 ifk<>8then2888 

2878 ifa*b=®then2848 

2880 c=1000000 

2890 ifa<>@then2939 

2900 a=c*b/(c+k*b) 

2910 a=int(a+.5) 

2928 g0t02990 

2938 ifb<>Qthen2978 

2940 b=c*a/(c-k*a) 

2958 b=int(b+.5) 

2968 g0t02999 

2970 kK=c*(b-a)/(a*b) 

2980 k=int(k+.5) 

2998 printcl$q3$" Ausgangs Farbtem 
peratur:";a 

3009 printc4$" Filmfarbtemperatur: 
"b5$;b 

3830 printc4$" Filterwert"b5$b4$;Kk 


<mn> 
<pn?> 


<gd> 
<cr> 
<pn> 
<ig> 
<ni> 
<fn> 
<co> 
<1lj> 
<cm> 
<dg> 
<bo> 
<am> 


<e0> 
<hi> 
<mj? 


<fj> 
zson> 
<jb> 


<ka> 
<f}> 


<jb> 
<cm> 
<ha> 


<ip> 
<al> 
<eh> 
<ck> 
<lc> 
<ok> 
<en> 
<ea> 
<ah> 
<fg> 
<ia> 
<co> 
<ce> 
<jo> 
<ei> 


<ak> 


<ca> 


" Mired" 

30828 char1,3,15,"Filterwert mit - 
=roetl. Filter(KR)" 

3038 char1,3,17,"Filterwert mit + 
=blauer Filter(KB)" 

3040 char1,15,20,wd$ 

3050 geta$:ifa$=""then3050 

3868 ifa$="j"then2790 

3078 ifa$="n"then268 

3080 g0t03858 

3098 printcl$c4$gb$; 

3108 print"*"bg"*" 

3118 print"*"left$(b$,15)"Tabellen 
"left$(b$,15)"*" 

3128 print"*"b$"*" 

31380 printgb$; 

3148 printq3$ 

3158 printb6$b6$"[ 1] Filterdatei"b 
4$ 

3168 printgq3$ 

3178 printb6$b6$"[2] Lichttabelle 
3180 geta$:ifa$=""then31808 

3198 ifa$="1"then3228 

3200 ifa$="2"then3658 

3210 goto3188 

3228 printcl$c4$gb$; 

3230 print"*"bH"*" . 
3248 print"*"left$(b$,14)"Filterda 
tei"left$(b$, 13) "*" 

3258 print"*"b$"*" 

3268 printgb$; 

3278 printq3$" Sie koennen irgend 
einen Wert eingeben" 

3288 printc4$b5$b5$"Sei es der Mir 
edwert" 

3298 printc4$left$(b$,18)"oder" 
3308 printc4$" der Korrekturfakto 
r in (KB oder KR)" 

3318 char!, 18,28,wt$ 

3328 wait198,63 

3330 got0o3398 

3348 char1,13,20,wd$ 

3350 getx$:ifx$=""then335Q8 

3368 ifx$="j"then3399 

3370 ifx$="n"then260 

3380 g0t03358 

3390 printcl$ 

3408 line=3448:restore:print:char] 
‚108,5," Suchbegr.":print:inputk$ 
3418 1=1len(k$) 

3428 printcl$c4$ 

3438 reada$:line=line+t1d 

3440 ifa$="@"thenprint:goto3342 
3458 fori=itolen(a$) 

3460 ifmid$( a$,i,1)=k$then3498 


<ik> 
<fb> 


<mj? 
<gb> 
<dp> 
<lc> 
<gk> 
<ap> 
<kh> 
<mn?> 


<he> 
<df> 
<gh> 
<jj? 


<gc> 
<ng> 


<ng> 
<ik> 
<im> 
<dn> 
<gi> 
<pl> 
<lo> 


<cd> 
<di> 
<1J2 


<cn> 


<am> 
<ep> 


<kj> 
<fc> 
<gc> 
<id> 
<ph> 
<ae> 
<ob> 
<ia> 
<lb> 
<ed> 


<np> 
<oe> 
<jk> 
<jb> 
<hl> 
<oh> 
<nm?> 


zeere 


3470 nexti 

3488 g0t03439 

3498 char1,18,5,a$:char1,190,20,wt$ 
3500 wait198,63:g0t03428 


3512 data" KR 2 + 18 Mired" 
3528 data" KR 2.5 + 27 Mired" 
3538 data" KR 3 + 35 Mired" 
3548 data" KR 6 + 58 Mired" 
3558 data" KR 9 + B1 Mired"” 
3568 data" KR 12 +112 Mired" 
3578 data" KR 15 +131 Mired" 
3588 data" KB 2 - 18 Mired" 
3598 data" KB 3 - 32 Mired" 
36088 data" KB. 6 - 45 Mired" 
3610 data" KB 9 - 81 Mired" 
3628 data" KB 12 -112 Mired" 
3638 data" KB 15 -131 Mired" 
36490 data@ 

3658 printcl$; 

3668 print 

3678 print 


3680 printleft$(b$, 13) "Farbtempera 
tur"b4$ 

3698 print 

3708 printleft$(b$, 13) "verschieden 
er"b5$ 

3718 print 

3728 printleft$(b$, 14) "Lichtquelle 
n"b5$ 

3738 print 

3748 print 

3758 print 

3768 printb5$b5$"Angaben erfolgen 
dm” 

3778 print 

3780 printb6$b6$rn$"”K"rf$"elvin un 
d "rn$"M"rf$"ired . 

3798 print 

3308 printleft$(b$, 13) "ausserdem d 
er"b5$ 

3818 print 

3828 printb6$b5$"Filtertyp in KR+K 
B " 


3838 print 

3848 print" Alle Angaben beziehen 
sich auf Tages-" 

3858 print 


3868 printleft$(b$, 16) "lichtfilm" 
3878 print 

3888 char!,10,22,wt$ 

3898 wait19B,63 

3928 printcl$; 

3918 print 

3928 print" Kerze"left$(b$,16) 
3938 print 


3948 print" 1988Kelvin 526Mired 


Filt.= 2#KB15" 
3958 print 

3962 print" Lampe 
3978 print 

3988 print" 2680Kelvin 
Filt.= KB15+KB9" 


4QdWatt"b4gbag 


385Mired 


3998 print 

4008 print" Lampe 975Watt"b4$b4$ 

40108 print 

4028 print" 2800Kelvin 35?Mired 
Filt.= KB15+KB6" 

4838 print 

4048 print" Lampe 108Watt"b4$b4$ 

49580 print 

4068 print" 2900Kelvin 345Mired 


Filt.= KB15+KB2" 

4070 print 

408880 print" Projektor Lampe Hochvo 
IH" 

4898 print 

4188 print" 3008Kelvin 
Filt.= KB15+KB2" 

4118 print 

4120 print 

4130 printleft$(b$, 17) ">>"b2$ 

4140 wait198,63 

4158 printcl$; 

4168 print 

4178 print" Projektor Lampe Haloge 


333Mired 


4180 print 

4198 print" 3400Kelvin 
Filt.= KBi12" 

4208 print 

4218 print" Halogenlampe Hartglas" 

4228 print 

4238 print" 3200Kelvin 
Filt.= KB15" 

4248 print 

42580 print" Halogenlampe Quarzkolb 
en 

4268 print 

42780 print" 3408Kelvin 
Filt.= K812" 

425%® print 

4298 print" Nitraphotlampe 

7Im " 

43088 print 

4318 print" 328@Kelvin 
Filt .= KB15” 

4328 print 

4338 print” Nitraphotlampe 
Alm " 

4348 print 

4358 print" 3400Kelvin 
Filt.= K812" 


294Mired 


313Mired 


294Mired 
5oD0wW/2 
313Mired 
5onw/3 


294Mired 


FOTO 


4368 print 

4378 print 

4388 printleft$(b$,17)">>"b2$ 

4390 wait198,63 

4400 printcl$; 

4418 print 

4428 print" Blitzlampen weiss"b4$ 

44308 print 

4448 print" 38880Kelvin 
Filt.r KBY" 

4458 print 

44680 print" Mondlicht"b6$b6# 

4478 print 

4480 print" 40@8Keivin 
Filt.= K8B9" 

4499 print 

4588 print" Morgen/Abend"b5$b4$ 

4518 print 

4529 print" 4708Kelvin 
Filt.= KB3" 

4530 print 

4548 print" Elektronenblitz"b6$ 

4558 print 

4569 print" 55008Kelvin 
Filt.= 8" 

4578 print 

4588 print" Sonne ( 10-14Uhr)"b5$ 

4590 print 

4608 print" 5588Kelvin 
Filt.= ®" 

4618 print 

4628 print 

4630 printleft$(b$,17)">>"b2$ 
4648 wait198,63 

4658 printcl$; 

4668 print 
4670 print" 
4688 print 
4698 print" 5508Kelvin 
Filt.e 0" 

4708 print 

a710 print" Leicht nebliges Wetter 


e63Mired 


250Mired 


213Mired 


182Mired 


182Mired 


litzlampen blau"b5$ 


182Mired 


4728 print 

4730 print" 8400Kelvin 

Filt.= KR6" 

4740 print 

4758 print" Licht vom blauen Himme 

l (im Schatten)" 

4768 print x 

4778 print"12000Kelvin"b4$"83Mired 
Filt.= KR12" 

4788 print 

4798 print" Licht vom blauen Himme 

l im Gebirge" 

4808 print 


119Mired 


<mi> 
<nn> 
<ml> 
<mh> 
<hm> 
<cp> 
E02 
<fh> 


<hm> 
enp> 
<fk> 


<Ej> 


<c]l> 
zna> 
<hb> 
<pi> 


<ph> 
<cö?> 
<ge> 
<ei> 


205? 
<ha> 
<hk> 
<ji> 


<mk> 
<mb> 
<nf> 
<ic> 
<fp> 
<nl> 
<cf> 
<fp> 
<en> 


<hf> 
<hf> 


<a3a> 
<jo> 


<mc> 
<mg> 


<pi> 
<oo> 


<bc> 
<bg> 


<db> 
<do> 


4318 print" (im Schatten) "b4$b4$ 

4828 print 

4838 print" 18808Kelvin"b4$"56Mired 
Filt.= KRIS" 

4848 print 

4850 print 

4860 print 

4870 printleft$(b$,17)">>"b2$ 

48880 wait198,63:g0t026® 

ABYB rem =======SH==2eenenneerennenn 


4982 rem 
49180 rem 
4928 rem 00329 bytes 


12277 bytes memöry 
11351 bytes program 
varisbles 


4938 rem DOBDED bytes arrays 


4948 rem 88532 bytes 


strings 


4950 rem BABES bytes free (B) 


" 49IEB rem ===reeeeeeeenremmmerenmeneen 


KAUFMANN _ 


IB rem kaufmann =============-==016 
22 rem (p} commodore welt team 

38 rem ============,=2= =, sonen r2= 
42 rem (c) by a.huebner 

SQ rem 

68 rem 

78 rem basic v3.5 

88 rem c16/116/plus4 + drucker 

98 rem ===========5====S=2==222en2=== 
188 b$=chr$( 32) :b2$=b$+b$ 

110 b3$=b2$+b$:b4$=bI$+b$ 

128 b5$=b4$+b$:b6$=b5$+b$ 

1308 b$=b5$+b5$:printchr$( 142); 

148 c1$=chr$( 147) :s1$=chr${ 22) 

158 z1$=chr$( 45) :z2$=chr$(61) 

160 z3$=chr$( 45) :z4$=chr$( 42) 

178 forgq=1to21:g1$=gi$+zi$:nextg 
188 forg=1t025:92$=q2$+z1$:nextgq 
198 forg=1t027:93$=g3$+z1$:nextg 
208 forg=1t038:q94$=q4$+z3$:nextg 
2180 forg=1t038:q92$=gqß$+s1$:nextg 
228 forgq=1t048:95$=g5$+z1$:nextg 
238 forg=1t049:96$=g6$+z1$:nextq 
248 forg=1t05:97$=q7$+s!$:nextg 
258 gqad=ga$+z4$+gQß$+z4$ 

2628 color 2,1 color 4,1 

278 printchr$( 159) 

288 close 4 

298 c=® 

382 sus=® 

318 printel$:fort=1t049:print"*";: 
next 


Pr} 
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328 printga$ 

238 print"*"b6$"programm zur erste 
llung von"bS$"*" 

342 printga$ 

259 print"*"b6$"auftragsbestaetigu 
ngen"b$"*" 

368 printga$ 

378 print"*"b6$"rechnungen / liefe 
rschein"b5$b2$"*" 

3890 printga$ 

399 print"*"b6$"mahnbrief"b$b$b3$" 
428 printgaß 

418 print"*"b6$"adressaufkleber"b$ 
bA$h3H"*" 

428 printga$ 

430 fort=1t048:print"*"; :next 
44@ printgeß 

458 print"*"b6$"- copy by a. 
ar ee 

468 printga$ 

£?0 printgas 

488 fort=1t0o4B:print"*";:next 
498 fora=1t035@8:nexta:printcl$chr 
$( 14) :goto248%8 
590 rem eingabe 
519 printcl$ 
k.mm.jjjj)";t$ 
528 printel$ : 
nden";a$ 


huebn 


input"Tagesdatum (t 


input"Anrede des Ku 


5380 printcl$ input"Vorname und N 

achname";n$ 

549 pnrintcl$ input"Strasse und H 

ausnr.":ıs$ 

558 printci$ input"PLZ mit Wohno 

rt";w$ 

sifar ı Eoto 2720 ; ie = 

3 goto 2768 

5790 if ad = 1 goto 1360 

538 printci$ if wahi$ = "1" then 
input"Lieferreitangabe ca " 
lief$ 

598 orintel$ if wahl$ = "1" then 
input"Auftrags-Nr.: "zauf$ 

629 printcl$ if wahl$ = "2" then 


input"BRechnungs.-Nr.";r$ 
618 print"Eingabe zur Artikelbezei 
chnung":print:print 
628 input"Anzahl der Artikel (max. 


5) "or 

638 if ox$ = "1" then gosub 690:g0 
to 748 

540 if ox$ = "2" tran gosub 699:90 
sub?%98 goto 748 

650 if or$ "3" then gosub 698:20 
sub?22:g0sL.07'!2:goto 749 


47 


662 if cx$ = "4" then gosub 699:go 
sub790:gosub?10:gosub720;g0t0740 
670 if ox$ = "5" then gosub 698:g0 
sub?99:gosub719:gosub?720:gosub?30: 
gotn74® 

688 printcl$ 

698 input"Text Artikel 1 ";d$ : re 
turn . 

788 input"Text Artikel 2 ";di$: re 
turn 

718 input"Text Artikel 3 ";d2$: re 
turn 

728 input"Text Artikel 4 ";d3$: re 
turn 

738 input"Text Artikel 5 ";d4$: re 
turn 

748 printcl$ 


758: print"Eingabe zur Artikelmenge 


760 if cx$ = "1" then gosub 810 
goto36ßB 

770 if ax$ = "2" then gosub BI1B:go 
subd829:gotoB6B, 

780 if cx$ = "3" then gosub B1%:go 


sub820:g0osub838:g0t0868 
798 if cx$ = "4" then gosub 819:go 
sub820:gosub832:gosub840:goto86® 


80ER if'cx$ = "5" then gosub B1P:go 
sub829:gosub83B:g05ub840:995ub85B: 
goto86®% 

B1@ input"Menge Artikel 1";ol:retu 
rn 

829 input"Menge Artikel 2";12:retu 
rn 

338 input"Menge Artikel 3";g3:retu 
rn 

848 input"Menge Artikel 4";f4:retu 
rn 

3858 input"Menge Artikel 5";y5:retu 
rn 

368 printcl$ 

878 print"Eingabe zum Einzelpreis 


je Artikel":print 

880 if cx$ = "1" then gosub 938: g 
o:0988 

892 if cx$ = "2" then gosub 938:20 
sub949:g0t0984 

902 if cx$ = "3" then gosub 938:g0 
sub948:gosub95B: goto 288% 

31@B if cx$ = "4" then gosub 9308:g0 
sub94R:gosub959:g0sub96R: goto 239 
328 if ox$ = "5" then gosub 930:g0 
sub930:gosub952:505ubB968:gosub972: 
209:0938 

938 input"Einzelpreis Artikel !";e 
!s:return 


« 
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948 input"Einzelpreis Artikel 
2s:return 

958 input"Einzelpreis Artikel 3";e 
3s:return 

960 input"Einzelpreis Artikel 4";e 
As:return 

978 input"Einzelpreis Artikel 5";e 
Ss:return 

988 printcl$:printg5$:print 
998 input"Kundenversandkosten 
1808 input"Versandform ";up$ 
1018 input"Zahlungsbedingungen";z$ 
ıB28 rem 


1232 rem berechnung der einzelen w 
erte 

1040 x1i=v+toN 

10858 x2a=v+l2 

1258 x3=vV+g3 

1870 x4=v+f4d 

ıDEd “5S=mv+tyS 

10890 a-eistxi 

1188 bseds*x2 

1110 cse3stx23 

1120 d=e4s#x4 

1138 ese5s"x5 

1148 rem 
1150 rem endsumme 
1162 rem 
1190 x6=atb+tc+d+te+tvk 

1180 x7=x6*108/114 

1198 x8=x6-x7 

1288 printel$:print:print:print:pr 
int 

1218 print ".Es erfolgt der Ausdru 
ck !t" 

1220 printqg2$ 


1238 if wahl$ = "1" then open 4,4, 
2 
1248 if wahl$ = "2" then open 4,4, 
7 


1258 rem chr$( i4) .sperrschrift ein 


1270 print#4,chr$( 14)" 
1280 printf#4,chr$( 15)b$bS$bE$"...... 
1298 printf4,chr$( 15)bEb$bE"...... 


" 


1318 print#4,chr$( 15)" 
1328 printf#4,chr$( 15)" 
1339 printf#4,chr$( 15)" 
1348 print#4,chr$( 15)" 
1350 printf#4,chr$( 15)" 


48 


1368 print#4,chr${ ii 


1370 printf#4,chr$[ 36) "06";a$ 

1382 printfä4,chr$t16)"86":n$ 

1398 printf4,chr${( 16) "06";s$ 

488 print#4,chr$( 15)" 

1418 printf4,chr&t 16) "B6" ;w$ 

1428 printf#4,chr$( 15) : if ad = 1 
goto 3218 

1430 printf4,chr$( 15)" 

1449 printf#4,chr$( 15)" 

1459 printf4,chr$( 15)" 

1468 print#4,chr$( 15)" 

14798 if ma = ? then 152% 

14Bß rem schreiben rechnungsnr. 
1498 if wahl$ = "1" then printfd,c 
hr${ 14) "Auftragsbestaetigung Nr.:" 


 h2gauf$ 


var 
\ 


1588 if wahl = 

hr$( 15) "Lieferzeit ce. 

1518 if wahlS = "2" then 

hr$( 14) "Rechnung-Nr.:";r$ 

1528 print#4,chrä&( 15)" 

1538 print#4,chr$( 15)" 

!SAZ rem kopfzeile 

1558 print#4,chr${ 10); 

1568 print#4,chr$( 16) "64",t$" 

1599 print#4,chr$( 15)" 

1582 if ma = 1 then 283% 

1598 print#4,chr$( ?5}" 

1688 printf#4,chr$( 15)" 

1518 print#4,chr$( 10}; 

1628 print#4,chr$( 16) "BßBezeichnun 

g";chr$( 16) "25Menge";chrf( 16) "A6Ei 

nzel";chr${ 16) "69DM" 

1638 printf#4,chr$( 16) "A6nreis";chr 

$( 16) "69Gesamt" 

1648 print#4,chr$( 14)a4$ 

1658 print#4,chr&( 15)" 

1668 print#4,chrä$( 15)" 

1678 if wahl$ = "2" then printf4,c 

hr${ '5S)"Sie erhalten heute per ";u 

p®. 

1688 print#4,chr$( 15)" 

1692 print#4,chr$( 16) "BB---" 

1788 printf4,chr$( 15)" 

19710 if cx$ = "1" then gosub 1778 
goto 2128 

1728 if 0x8 > then 

gosub'B4Q goto 212% 


then printfä ,e 
"Sekt 


printf4,c 


on 
c 


1930 if cx$ = "3" then gosub 1778: 
gosub?848 : gosub 1918 : goto 2128 
1748 if cx$ = "4" then gosub 1798: 
gosub1348 gosub 1918 : gosuh 198 
8 goto 2128 

1750 if cx$ = "5" then gosub 1778: 


gosub 1849: gnsub191Q:gosub 1988: gosu 


A A 
cr [ER 
= -h 

, vw 


A 


2 
v 


AN 


m m 
w 


NAMAa AA MA 

D-09000 aD 

an OD Hr. T 
EUENMNDMMMWV 


N 

a 

u 
v 
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b2850:g0t02128 

1768 print#4,chr$( 18)" 

1770 print#4,chr$( 16) "00" ;d$; 

1788 print#4,chr$( 16) "25"; 

1790 print#4,using "##";01; 

1808 print#4,chr$( 16) "46"; 

"818 print#4,using "HHHHH.HH-";eis 


u 

1820 print#4,chr$( 16) "69"; 

1830 print#4,using "AHHHH.HH-";a 
return 

1848 printf#4,chr$( 16) "080";d1$; 
1858 print#4,chr$( 16) "25"; 

1860 print#4,using "##";12; 

1870 print#4,chr$( 16) "46"; 

1888 print#4,using "HHHHH.HH-";e2s 


’ 
1898 print#4,chr$( 16) "69"; 


1909 print#4,using "AHHHH.HH-";b 
return 

1910 print#4,chr$( 16) "00";d2$; 
1928 print#4,chr$( 16) "25"; 


1938 
1948 
1958 


print#4,using "##";g3; 
print#4,chr$( 16) "46"; 
print#4,using "AHHHH.AH-";e3s 


1960 print#4,chr$( 16) "69"; 

1970 print#4,using "AHHHH.#H-";c 
return 

1988 print#4,chr$( 16) "00" ;,d3$; 
1998 print#4,chr$( 16) "25"; 

2088 print#4,using "##";f4; 

2218 print#4,chr$( 16) "46"; 


2020 print#4,using "HHHHH.HH-";eds 
} 

2038 print#4,chr$( 16) "69"; 

2040 print#4,using "AHHHH.HH-";d 
:return 

2858 print#4,chr$( 16) "00";d4$; 


20608 
20708 
2088 
22098 


print#4,chr$( 16) "25"; 
print#4,using "##";y5; 
print#4,chr$( 16) "46"; 
print#4,using "#HHHR.HH-",e5s 


’ 

2188 print#4,chr$( 16) "69"; 

2110 print#4,using "AHHHR.HH-";e 
return 

21328 print#4,chr$( 16)"30zzgl. Vers 
andkosten"; 

2130 print#4,chr$( 16)"69"; 

2140 print#4,using "AHHHH.HH-";vk 
2158 print#4,chr$( 10)" 

2168 print#4,chr${ 16) "3®0Rechnungsb 
etrag incl"b2$"14% Mwst"; 

2170 print#4,chr$( 16)"69"; 

2188 print#4A,using "AHHHH.HH-";x6 


<am> 
<gc> 
<mj?> 
<op> 
<pd> 
<ek> 


<ca> 
<og? 


<ap> 
<mh> 
<pe> 
<jm> 
<ip> 


<ml> 
<oj> 


<cg> 
<op> 
<mn?> 
<nk> 
<fj> 


<he> 
<ic> 


<do> 
<nk> 
<io> 
<el> 
<ee> 


<oa> 
<lp> 


<jb> 
<in> 
<ee> 
<ap> 
<pf> 


<eb> 
<ih> 


<nm> 


<ah> 
<em> 
<nb> 
<dd> 


<ae> 
<cc> 
<gj> 
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2198 print#4,chr$( 16) "30"g6$ 

2200 print#4,chr$( 15)"; 

2218 print#4,chr$( 18)" 

2228 print#4,chr$( 16) "180Zahlungsbe 

dingung z6 
2238 print#4,chr$( 18)" 
2248 print#4,chr$( 16) "28 
-Satz 14% = DM"; 

2258 print#4,chr$( 16) "50"; 

2268 print#4,using "AHHHH.HH-";,x8 
2278 printf#4,chr$( 10)" 

2288 print#4,chr$( 16) "085Wir danken 
fuer Ihren Auftrag "; 

2298 print#4,chr$( 16) "32und freuen 
uns auf Ihren naechsten !" 

2388 print#4,chr$( 13) chr$( 13) 

2318 print#4,chr$( 16) "00Volksbank 
2328 print#4,chr$( 16) "27Kreisspark 
ÖSER 1 ueune n N: 

2338 print#4,chr$( 16) "55Postgiroam 


1aa 


Rum 


Mwst. 


print#4,chr$( 16) "OBBLZ 


a 
2358 print#4,chr$( 16) "27BLZ 


a 
2368 print#4,chr$( 16) "S5SBLZ 


.eor0o. 


2378 print#4,chr$( 16) "DQKto: 


a: 
2380 print#4,chr$( 16) "27Kto: 


ne 
2398 print#4,chr$( 16) "S5Kto: 
ee 3 eldse. 4 printcl$ 

2408 if wahl$ = "1" then input"Kop 
ie der Auftragsbestaetigung ";c$ 
2418 if wahl$ = "2" then input”Kop 


ie der Rechnung ( j/n)";c$ 


2428 if c$="j"then 1230 (:else243 
8) 
2438 if wahl$ = "2" then input"Wei 


Rechnungen ( j/n)";i$ 

if i$ = "j" goto 520 (:else: 2 
if wahl$ = "1" 
Auftragsbestaetigungen 
close 4 return 

if i$="n"then return 
printcel$:rem menueauswahl 


for t= 1 to 40 print "F";: 


then input"Wei 
"iS 


print"#"b5$"M en u e"b2$"-"b 
uswah 1"b6$"*" 

printga$ 
printz4$g7$q93$q7$s1$z4$ 
printga$ 


<em> 
<cj?> 
<ki> 


<cb> 
<fc> 


<gb> 
<pe> 
<pf> 
<gc> 


<lc> 


<fb> 
<jh> 


<in> 
<fj> 
<o0o> 
<bd> 
<hn> 
<cn> 
112 
<cl> 
<lg> 
<ni> 
<oo> 
<ee> 
<id> 
<ap> 
<hl> 
<co> 
<dg> 
<ce> 
<ha> 
<ob> 


<cm> 
<nf> 


<gl> 2» 
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2548 printga$ 

2550 print"*"b2$"Auftragsbestaetig 

ungen"b5$"="b3$"1"b4$"*" 

2568 printga$ 

25708 print"*"b2$"Rechnung/Liefersc 

hein"b6$"="b3$"2"bA$"*" 

2588 printga$ 

2598 print"*"b2$"Mahnbrief"b$b5$b3 
"="H3$"3"pAag"*" 

2608 printga$ 

2618 print"*"b2$"Adressaufkleber"b 

$b2$"="bI3K"A"bAg"*" 

2628 printga$ 

2638 print"*"b2$"Ende des Programm 


S"b5$bAg"="b3F"5"bAg"*" 
2648 for t = 1 to 48 Bruins; 
next 


2658 print:print:print:print:print 
b3$"Bitte waehlen Sie"b$b2$; :input 
wahl$ 


2668 a=-9:ma=d:ad=d 

2670 if wahl$ = "1" then gosub 518 

:g0t02488 

2680 if wahl$ = "2" then gosub 518 

:g0t02488 

2698 if wahl$ = "3" thena=a+|1 
gosub 518 goto 2488 

2788 if wahl$ = "4" then printcel$: 

goto 3148, 

2718 if wahl$ = "5" then printel$: 

goto 3248 

2728 printcl$:for t = 1 to 48 : pr 

int"*"; :next:print 

2730 print"*"b4$b4$"Mahnbrief"b$b$ 

2748 for t = 1 to 48 print"*";:n 

ext:print:print:print"Bitte eingeb 

en:" 

2758 print"Mahnstufe"b$b2$; :inputm 

ahns$ 

2768 print"Rechnungs-Nr.:"b5$b2$;: 


inputr$ 

2778 input"Erstdatum ’Rechnung’ "; 
ar$ 

2780 print"Mahnbetrag (DM) "b6$; :in 
putd$ 

2798 printcl$:print:print:print:pr 
int"Es erfolgt der Ausdruck des Ma 


hnbriefes." 

2808 printqg5$ 

2810 open4,4,7:ma=® 

2820 ma = ma + 1 goto1268 

2830 bem rn 
2848 rem text fuer mahnbrief 
2650 rem ann 
2868 print#4,chr$( 16) "O1Buchhaltun 
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8, Köontö-Nt.ö "ans 

2870 print#4,chr$( 16) "O1Mahnstufe 
="b2$mahns$ 

2888 print#4:print#4:print#4,chr$( 
16)"@1Sehr geehrte"; 

2898 ifleft$(a$,1)<>"F"then print 
AR"; 

29080 print#4," "a$" "n$",":printf#4 
2918 printf#4,chr$( 16)"Dileider mus 
sten wir feststellen, dass der unt 
en genannte Betrag" 

2928 print#4,chr$( 16) "Binoch nicht 
bei uns eingetroffen ist. Sicher 
haben Sie vergessen" 

2938 printf#4,chr$( 16) "@idie Ueberw 
eisung vorzunehmen." :printf#4:print 

#4 

2948 print#4, chr$( 16) "@lFuer eine 

baldige Erledigung danken wir ihne 
n schon im voraus." 

2958 print#4:print#4:printf#4 

2968 print#4,chr$( 16) "O1Mit freund 
lichen Gruessen" 

2978 „print#A, chr$t 165 "01. 3a: 

":print#4:print#4:printf#4 

2980 print #a, chrßl 16)" O1. 5a 
":print#4:print#4:print#4:print#4 
2998 printf#4,chr$( 14) :print#4,chr$ 
eu stellung" 
3802 print#4,chr$( 16)"B1"g1$:print 
#4 

38018 print#4,chr$( 15) ;chr$( 16) "OR 
echnung vom "»ar$;chr$( 16) "3@Rechn 
ungs-Nr: ";r$; 

3028 print#4,chr$( 16) "57Betrag in 
DM "; 

3838 print#4,using "HHHH.HH-";d$ 
3848 for t = 1 to 76 print#4,chr 
$( 16) "81-";:next 

3858 print#4:print#4:printf#4:print 
#4,chr$( 16) "OiAnlage":print#4,chr$ 
(16) "81------ " 

3868 print#4:print#4,chr$( 16) "Q1Re 
chnungskopie" 

3070 print#4:print#4:print#4 

38882 print#4,chr$( 16)"B®1Falls der 
Ausgleich inzwischen erfolgt ist, 
betrachten Sie"; 

3090 printf#4,chr$( 16) "60dieses Sch 
reiben" 

3188 printf#4,chr$( 16)"Bials erledi 
gt !":close 4 

3118 printcel$:input"Kopie des Ausd 
rucks (j/n) ";ausdru$ 
3120 if ausdru$ = "5" 
goto 3118 


goto 2818 


<cc> 
<io> 
<pm> 
<mp> 


<ed> 


<ik> 
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if ausdrus = "n" goto 2488 


3:30 

3148 for t = 1 to 498 art 9 An 

ext : 

3158 BrINE"F 52:55 .‚Adressaufkleber. 

3168 for t = 1 to 49 rin’ En 

ext 

3170 open4,4,7:ad=B 

3180 print:print:print:print:print 

"Ihre -Eingabe bitte !": fort = It 

o 28:print"-";:next 

3198 for j = 1 to 598 next j 

3208 print:print:print:ad = ad + I 
goto 522% 

22180 printel$ : ad = 8 : input"W 

eitere Aufkleber (j/n) ";aufk!$ 

u: 


s220 if aufkl$ = "ij" then ad = ad 

N :goto 522 

3230 if aufkl1$ = "n" 
goto 24838 

2240 fort = 1 

ext 

2258 print"*"b6$"ende des programm 

s"b$bA$"*" 

3260 for t = 1 

ext 

3278 print:print:print:print"tages 

datum = ";t$ 

3288 print:print:print:print"pgm.- 

laenge = ";60671 - fre(x); "in byt 


then close 4 
to 40 Brint.= zen 


to 48 


2 


23290 print:printchr$( 158) :printchr 


$(18)b3$"copy by: a. huebner 88/19 
85" ;printehr$l 159) 

33028 rem printchr$( 146) 

3318 for t = 1 to 48 print"#"s:n 
ext:print:printchr$( 142) 

2328 end 

3330 rem =>======- ==. 388, nn 
2340 rem 12277 bytes memory 

3350 rem 09777 bytes program 

3359 rem 922428 bytes variables 
3279 rem ABERZ bytes arrays 

3380 rem BEB!O bytes strings 

22398 rem 91279 bytes free (2) 

3409 rem =======- ===. 30 7: 52335 


COMMODORE--WELT 


Das unabhängige 


User-Magazin 


ROLLER- 


BALL 


Für diejenigen, die schon mit dem Monitor umgehen 
können, folgen jetzt zwei Spiele in Maschinen- 
sprache programmiert. Denn die ist nicht nur beim 
Eintippen, sondern auch beim Ablauf schneller. 

Die Grafikbalken am Rand müssen Sie nicht mit 
eingeben, die erzeugt der Computer allein, wenn 

Sie die Zeile mit Return abschließen! Sie dienen der 
Kontrolle, ob Sie richtig abgetippt haben! 


Vernichten Sie die Mon- 
ster, die sich in einem 
Leiterlabyrinth bewegen, 


‘indem Sie ihnen Kugeln 


entgegenrollen. Die Ku- 
geln werden mit der Space- 
taste ausgelöst, aber nur 

in die Richtung, in die 

Sie sich vorher bewegt 
haben! Also, wenn Sie 
nach rechts gelaufen sind, 
rollt die Kugel nach 
rechts. Für ein getroffe- 
nes Monster gibt es 100 
Punkte. Sollte es Ihnen ge- 
lingen, den im Labyrinth 
herumfliegenden Vogel 

zu erwischen, verwandelt 
sich dieser in einen Stein, 
der an einem anderen Ort 
auftaucht. Dafür erhalten 
Sie dann 200 Punkte. 


Ihre Bewegungen im Laby- 
rinth werden mit den Cur- 
sortasten in alle Richtun- 
gen gesteuert. Das Spiel 
hat 15 Durchgänge, wo- 
bei nach jedem dritten 
Durchgang das Labyrinth 
verändert wird und mit 
neuen und gefährlicheren 


“ Monstern aufwartet. 


Wurden Sie von einem 
Monster, Vogel oder 
Stein erwischt, bzw. wenn 
die Zeit abgelaufen ist, 
haben Sie verloren. 

Da das Spiel ganz in Ma- 
schinensprache geschrie- 
ben ist, geben Sie es bitte 
mit Hilfe des eingebauten 
Monitors ein und saven es 
vor dem Starten auf Kas- 
sette oder Diskette ab. 


WALLBREAK 


Dieses Spiel ist dem 
Klassiker “Break Out“ 
nachempfunden und kann 
als eine gelungene Varian- 
te für’den C-16 bezeichnet 
werden. Sie müssen ver- 
suchen, mit dem Schläger 
am unterem Bildschirm- 
rand den Ball so zurück- 
zuschlagen, daß Sie alle 
Steine aus den am obe- 


ren Bildrand befindlichen 
Rhomben herausschlagen. 
Der Schläger wird mit 

den Cursor-Tasten bewegt. 
Da das Spiel in Maschinen- 
sprache geschrieben ist, 
geben Sie es bitte mit dem 
eingebauten Monitor ein 
und saven es vor dem 
Start auf Kassette oder 
Diskette ab. 


Sichern Sie Rollerball und Wallbreak 
mit S "ROLLERBALL",8,1001,2C70 bzw mit 
5 "WALLBREAK" ,8,1001,1568 vom Monitor 


aus, 


wenn Sie Diskette verwenden. 


Fuer 


Kassette ist, anstatt der 8, eine 1 als 


Geraeteadresse zu nehmen. 


Gestartet 


wird mit LOAD und RUN. Benuetzen Sie 


zum Eingeben 
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’CHECKMON ” 


auf Seite 68. 


« 


Re: ERBAEBEL 85186 


>1208 
>1008B 
>1210 
>1018 
>1028 
>1028 
>1830 
>1038 
>19048 
>1048 
>18508 
>1058 
>1068 
>1068 
>1078 
>19078 
>1088 
>1088 
>1298 
>1098 
>1Ba® 
>1Qa8 
>10b2 
>18b8 
>18c® 
>12c8 
>10d® 
>190d8 
>1Bed 
>1Qe8 
>10Ff0 
>»10f8 
>1180 
>1108 
>1118 
>1118 
>1128 
>1128 
>1130 
>1138 
>1148 
>1148 
>1158 
>1158 
>1168 
>1168 
>1170 
>1178 
>1188 
>1188 
>1198 
>1198 
>11a8 
>1188 
>11b8 
>11b8 
>11c8 
>11c8 


ı<c9> 
ı<36> 
:<ed> 
ı<41> 
ı’<ca> 
:<c7> 
:<c4> 
:<16> 
:<88> 
:<5c> 
:<8c> 
:<cd> 
ı<20> 
:<e3> 
:<44> 
:<13> 
.<5d> 
:<Bc> 
ı<ae> 
ı<f1> 
:<30> 
ı<20> 
:<dd> 
:<60> 
!<cc> 
:<84> 
:<aß> 
:<ed> 
:<B6> 
ı<cf> 
:<82> 
ı<87> 
:<65> 
:<61> 
ı<69> 
:<6b> 
ı<6c> 
:<80> 
:<a8> 
:<cd> 
<c3> 
ı<a2> 
ı<67> 
ı<d?> 
:<b1> 
ı<39> 
ı<32> 
ı<b7> 
ı<cd> 
E33 
:<ee> 
ı<978> 
:<ab> 
:<be> 
ı<cd> 
ı<ad> 
<tr> 
<05> 
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>11d® 
>11d8 
>11e® 
>11e8 
>11fB 
>11f8 
>1200 
>1208 
>1218 
>1218 
>1228 
>1228 
>1238 
>1238 
>1240 
>1248 
>1258B 
>1258 
>12608 
>1268 
>1278 
>1278 
>1288 
>1288 
>1298 
>1298 
>1288 
>1288 
>12b8 
>12b8 
>12c8 
>12c8 
>12d8 
>12d8 
>12e8 
>12e8 
>12f8 
>12f8 
>13008 
>1388 
>1318 
>1318 
>1328 
>1328 


'>1338 


>1338 
>13408 
>1348 
>1358 
>1358 
>1368 
>1368 
>1378 
>1378 
>1388 
>1388 
>1398 
»1398 


ROLL EBBALL 68 1& 


>1330 
>1338 
>13b9 
>1368 
>13c2 
>13c08 
>13d8 
>13d8 


>13e® 
>13e8 


>13f8 
>13f8 
>1408 
>1408 
>1410 


>31418: 


>1420 
>1428 
>»1438 
>1438 
>1448 
>1448 
>1458 
>1458 
>1468 
>1468 
>1478 
>1478 
>1488 
>1488 
>1498 
>1498 
>1438 
>1438 
>14b® 
>14b8 
>14c® 
>14c8 
>14d8 
>14d8 
>14e® 
>14e8 
>14fB 
>14f8 
>»1508 
>1508 
>1518 
>1518 
>1528 
> 1528 
>1538 
»15383 
>1548 
> 1548 
>1559 
>»1558 
>156® 
>1568 


:<83> 
:<d3> 
:<Bf> 
ı<92> 
:<38> 
:<92> 
ı<32> 
:<ge> 
ı<24> 
ı<b4> 
:<70> 
:<e3> 
ı<fd> 
ı<b7> 
"<64> 
ı<56> 
ı<52> 
:<dc> 
'<eb> 
1ı<72> 
:<383> 
ı<92> 
ı<cc> 
ı<d2> 
:<82> 
:<9a> 
:<62> 
ı<df> 
edd> 
ı<B4> 
ı<61> 
ı<25> 
ı<3f> 
ı<708> 
ı<f4> 
:<91> 
<95> 
:<ör> 
ı<B5> 
ı<b1> 
ı<81> 
5712 
ı<61> 
ı<8b> 
ı<cd> 
:<10> 
:<20> 
:<38> 
:<70> 
:<89> 
ı<23> 
ı<3c> 
:"<ab> 
ı<33> 
ı<74> 
16563 
ı<76> 
RE 
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>1578 
>1578 
>1580 
>1588 
>1598 
>1598 
>153® 
>1538 
>15b® 
>15b8 
>15c8 
>15c8 
>15d® 
>15d8 
>15e8 
>15e8 
>15f2 
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Das Spiel Bingo ist 
einem — vor allem in 
England bekannten — 
Spiel nachempfunden. 

Das Spielfeld enthält 
25 numerierte Löcher. 
Dem Spieler stehen fünf 
bis sieben Kugeln zur 
Verfügung, die er eine 
nach der anderen ab- 
schießen kann. Die Ku- 
geln fallen nacheinander 
in verschiedene Löcher. 
Das Ziel ist es, möglichst 
fünf Kugeln in eine Reihe 
zu bekommen. Als Reihe 
zählen hier die waage- 
recht oder senkrecht an- 
einander grenzenden Fel- 
der sowie die zwei Dia- 
gonalen. 

Gewonnen wird, wenn 
am Ende des Spieles drei, 
vier oder fünf Kugeln in 
einer Reihe sind. Dabei 
zählen aber nur die lük- 
kenlos aneinanderliegen- 
den Kugeln. Sind dazwi- 
schen freie Löcher, ist die 
Reihe unterbrochen. 

Nachdem das Spiel- 
feld aufgebaut ist und 
zum Beginn eines neuen 
Spieles kann der Spieler 
Münzen einwerfen. Das 
geschieht durch Drücken 
der Tasten 1 - 9. Mit je- 
dem Druck werden so- 
viele Münzen eingewor- 
fen, wie die Ziffer an- 
gibt. Das kann beliebig 
oft getan werden, bis 
der Zähler voll ist. Alle 
eingezahlten Münzen 
werden dem Spieler gut- 
geschrieben und können 
nachher zum Spielen be- 
nutzt werden. 

Nun kann das Spiel 
beginnen. Zuvor ist die 
Höhe des Einsatzes fest- 
zulegen. Bei jedem Druck 
auf die Leertaste wird 
eine Münze aus dem Gut- 
haben geholt und als 
Spielgeld genommen. Um 
das Spiel zu starten, ge- 
nügt eine einzige einge- 


BINGO 


zahlte Münze. Es ist je- 
doch vorteilhafter, mehre- 
re Geldstücke zu berap- 
pen, denn mit jeder wei- 
teren Münze kann sich 
die Gewinnprämie erhö- 
hen, oder es wird ein 
Zusatzbonus gegeben. 
Das ist jedoch vom Zu- 
fall abhängig. Es ist auch 
möglich, daß weder Prä- 


gebenen Boni haben fol- 
gende Bedeutung: 

Vier Ecken und Mitte: 
Wenn die Kugeln in die 
vier Ecken des Spielfel- 
des fallen, wird die Prä- 
mie für vier in Reihe ge- 
zahlt. Fällt zusätzlich 


‚eine fünfte Kugel in das 


mittelste Loch, gibt es 
die Prämie fünf in Reihe. 
Eine Extra-Kugel: 


Das Spiel läuft mit sechs 


Kugeln. 

Zwei Extra-Kugeln: 

Das Spiel läuft mit sie- 
ben Kugeln. 
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mien erhöht werden, 
noch daß ein Bonus ge- 
geben wird. Sie werden 
bald feststellen, daß der 
günstigste Einsatz pro 
Spiel bei etwa 10 - 40 
Münzen liegt. Je höher 
der Einsatz, um so sel- 
tener gibt es einen Bo- 
nus. 

‘Die Gewinnprämien 
und eventuelle Boni wer- 
den auf der rechten Bild- 
Seite angezeigt. Das sind 
auf jeden Fall die Prä- 
mien für drei, vier oder 
fünf in Reihe. Diese wer- 
den, wenn erreicht, am 
Ende des Spieles ausge- 


zahlt. Die weiterhin ge- . 


Gute Grafik 


Quadrat x Drehen: 


Vor dem Abschuß der‘ 


vierten oder fünften Ku- 
gel kann das durch x be- 
zeichnete Quadrat ge- 
dreht werden und damit 
eventuell die Chance er- 
höht werden oder sogar 
schon drei oder vier in 
Reihe gesetzt werden. x 
ist dabei eine Zahl von 1 - 
4. Das erste Quadrat bil- 
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den die vier Löcher in der 
linken oberen Ecke. Das 
zweite Quadrat sind die 
vier oberen rechten, drit- 
tens unten links und vier- 
tens unten rechts. Die 
Quadrate werden gedreht 
durch Betätigen der Ta- 
sten 1 - 4. Drücken der 
Taste Null zeigt an, daß 
alle Quadrate so stehen 
bleiben sollen, wie sie 
sind. 

Will der Spieler seinen 
Einsatz nicht weiter er- 
höhen, kann nun das 
Spiel durch RETURN ge- 
startet werden. 

Vor jeder Kugel 
kommt die Aufforderung, 
diese abzuschießen. Das 
geschieht durch Druck 
auf die Leertaste. Nun 
läuft die Kugel und fällt 


schließlich in ein freies 


Loch. Je nach gegebenem 
Bonus wird vor Abschuß 
der vierten oder fünften 
Kugel aufgefordert, die 
gewünschten Quadrate zu 
drehen. Immer, wenn die 
entsprechende Taste ge- 
drückt wird, tauschen die 
Kugeln mit den Zahlen 
der entsprechenden Lö- 
cher ihre Plätze. Das kön- 
nen Sie so oft machen, 
wie Sie wollen und mit 
jedem im Bonus ange- 
zeigten Quadrat. Wollen 
Sie kein Quadrat mehr 
drehen, geben Sie die 
Null ein und das Spiel 
geht weiter. Die nächste 
Kugel kann gestartet wer- 
den. 

Wenn die letzte Kugel 
ihr Ziel erreicht hat, ist 
ein Spiel zu Ende. Der 
Computer teilt Ihnen mit, 
ob und wieviel Sie ge- 
wonnen haben. Zuerst 
den oder die Gewinne 
für drei in Reihe, danach 
die höheren Gewinne, 
vorausgesetzt, Sie haben 
gewonnen. Ansonsten 
kommt die Mitteilung, 
daß Sie für diesmal leer 
ausgehen. Haben Sie aber 
gewonnen, bewirkt ein 
Druck auf die Leertaste, 
daß der Gewinn Ihrem 


Guthaben zugezählt wird. 2» 
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18 rem bingo ==================016 <]li> 598 printchr$( 18) "return = weiter" 
20 rem (p) commodore welt <op> ; <dh> 
30 rem =========-=-==5======02=200==== ong> 600 fori=8Q6t0832step2 <gf> 
48 rem (c) by g. kramer <kd> 618 pokef+i,peek( f+ti)or128 <pl> 
58 rem emsdetten <em> 628 next <fo> 
60 rem <ah> 630 geta$:ifa$<>chr$( 13) then682 <bp> 
78 rem basic v. 3.5 4 <mk> 649 printchr$( 149) <pe> 
88 rem c16/116/plus4 <ki> 658 print"wieviele spieler ? (1-6) 
90 rem ========================0== 0 (jg> <gk> 
100 gosub888 <cl> 660 geta$:ifla$<"1")or(a$>"6")then 
1108 gosub218 <kc> 668 <am> 
128 gosub1902 <mo> 678 sp=valla$) <ji> 
130 gosub1198 <bj> 688 print <o0o> 
140 gosub3922 <fj> 698 print"anfangskapital ? (B-50®) 
150 gosub4090 <jo> Ö <fe> 
160 gosub4632 <pn> 788 print <bg> 
170 gotoi38 <fa> 718 print"mit return abschliessen" <kl> 
180 rn nn <mj> 720 a=B <co> 
198 titel <il> 730 geta$:ifa$=chr$( 13) then?98 <oh> 
208: =- mr <mi> 7408 ifla$<"@")or(a$>"9")then?730 <jb> 
2108 data226,68, 112,224 <ee> 750 a=19*a+valla$) <ml> 
220 data146,100,137,16 <gk> 7680 z=3:s=25:gosub 1030 <pf> 
230 data146,116,129,16 <ad> 778 printchr$( 138) chr$( 18)a <ch> 
240 data226,92,129,16 <nd> 780 g0t0738 <la> 
258 data1i46,76, 185,16 <lb> 798 ifa>588then688 <bj> 
268 data146,68, 137,16 <ej> 808 Fori=1tosp <ee> 
270 data146,68, 137,16 <mb> 810 spli)=a <id> 
288 data226,68,112,224 <dd> 828 next <pa> 
298 fori=2to? <fk> 838 g=a:ss=] <jf> 
308 fori1=Bto3 <nl> 848 return <ce> 
318 reada <cm> N ee <ff> 
320 fori®=7toßstep-1 <jp> 868 anfangswerte <bl> 
338 iflaand2°iB®)=®then36B <hf> 20 m <hp> 
348 pokef+6+40*i+8*i1+7-i10,243 <hi> 888 graphic®,1:color®,1:color4,1 <hh> 
358 pokeb+6+40*i+8*i1+7-i0, 102 <pj?> 898 dimz(24),z1(24) < jm> 
360 sound3,658, 1 <bp> 900 Fori=-Bto24 <ba> 
37@ nextißd,il,i <lh> 918 a=int(rnd(a)*25) <ff> 
388 z=12:5=12:gosub 1038 <dp> 928 ifzi(a)>Q®then91d <1j> 
398 color1,3,? <j1> 938 zi(a)=1 <ef> 
488 print"ein spiel von" <ag> 948 z(i)=at1d <kd> 
410 z=20:s=6:g0sub1030 <1m> 9508 next <pf> 
428 a$="guenter kramer" <fj> 968 b=3072 :rem videoram <an> 
438 color1,8,6 <km> 978 f=2048 :rem farbram <ph> 
448 fori=1t014 <ap> 988 vol8 rem sound <oi> 
458 printmid$(a$,i,1)" "; mj? 998 return <fb> 
460 sound1,917,1 <mh> 1008 ----------------------------- <no> 
478 sound2,939,1 <hc> 1818 cursor setzen <oo> 
480 next <ef> 10928 ----------------------------- <aa> 
498 fori=-0t07:3$(i)="" <kl> - 1838 printchr$( 19)tab(s) <fi> 
520 forid=5to34 <dk> 1848 ifz=®then 1080 <le> 
518 a=49*i+i® <je> 1858 forz1=8toz-1 “<hf> 
528 a$li)=a$(li)+chr$( peek(b+a) +64) <nh> 10868 print:next < jm> 
. 530 nextiß,i <ff> 1078 printtab(s) <ek> 
548 printchr$( 19); <lm> 10888 return <ag> 
558 fori=Bto? <jl> 1090 Br <jn> 
568 printtab(5)a$li) <db> 1188 zeilen loeschen <ab> 
578 next <pk> iD, SEHE ren <bk> 
588 z=24:5=12:gosub1038 <mg> 1128 fors=8t039 <ib> 
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pokeb+49*z+s,32 
next 
return 


g=sp(ss) 

gosub4898 
gosub2690:ifg=Qthen1190 
fori=22t024 

z=-i:gosub!128 
next:e=8:poke239,8 
z=22:5=98:g0sub1838 
print"bitte ihren einsatz" 
print"return = spielbeginn" 
geta$:ifa$=""then1288 
a=asc(3$) :ifa=13then 1858 


g=-g-1:a$=right$(" "+str$(lg), 
z=18:5=9:gosub1830 
printchr$( 18) a$ 
e=se+t1:a$=right$(" "+str$le), 


z=B:s=22:g0osub1030 
print"einsatz ="spc(4)a$ 
print 

ife>ithen 1478 
printtab( 25) "gewinnplan" 
print 

printtab(22)"3 in reihe = 3 


printtab(22)"4 in reihe = 6 


u 
_ 
[93] 


printtab(22)"5 in reihe 


fori=Bto1d:g(i)=Q:next 

g( 3) =38 

g(4)=69:g(5)=158 

goto1288 
print:print:ife<5then 1588 
a=int(rnd(a)*e) :ifa>18then 156 


ifa<2ora>5then 1538 
fori=2t05:g(i)=g(i)+int(gli)/ 


if gli)>8888theng( i)=8000 
next:g0oto1568 i 
ifa<>1theng[ a) =1:g0t0156®8 
ifg( 1) =2then 1568 
ifa=!theng( 1)=2 

a$=right$(" "+str$(gl3)),4) 
printtab( 35)a$ 

a$=right$l" "+str$(gl4)),4) 
printtab( 35) a$ 

a$=right$l" "+str$(g(l5)),4) 
printtab( 35) 3$ 

print 

ifg(6) =Bthen 1659 


<de> 
<hc> 
<jd> 
<bp> 
<gg> 
<am> 
<ke> 
<ik> 
<bp> 
<gn> 
zen> 
<ed> 
<dd> 
<jd> 
<jn> 
<pk> 
<da> 


<ha> 
<ih> 
<na> 


<lh> 
<hp> 
<ih> 
<ed> 
<kb> 
<fi> 
<hp> 


<ka> 
<ij> 


<bb> 
<jo> 


<id> 


<ok> 
<Ik> 
<ic> 


<1lp> 
<fl> 


<cl> 
<pm> 
<bf> 
<ii> 
<dg> 
<ge> 
<fc> 
<oc> 
<ib> 
<oa> 
<kl> 
<mg> 
<en?> 
<ng> 
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1648 
k" 
1650 
1668 
E” 
1670 
1688 
k" 
1698 
1708 
f" 
1710 
40 
1720 
1738 
gel." 
1748 
1750 
1768 
1770 
780 
1798 
1800 
1810 
1828 
1830 
1840 
1858 
13860 
1878 
1888 
1898 
1908 
19108 
5=1 
1920 
1938 
1948 
1950 
1968 
1970 
1980 
1990 
2008 
2010 
2028 
2038 
2048 
2058 
2068 
2078 
2088 
2090 
2108 
2118 
2128 
2130 
2140 


printtab(22)"drehen !. quadra 


ifg(7)=8then 1678 
printtab(22)"drehen 2. quadra 


ifg(8)=®then 16908 
printtab(22)"drehen 3. anadra 


ifg(9)=8then 1918 
printtab(22)"drehen 4. quadra 


ifg(6)+g(7)+g(8)+g(9)=Othen17 


a$="4":ifg( 10)=1thena$="5" 
printtab(22)"vor der "a$". ku 


z=14:5=22:gosub 1230 

ifg( 8) =0then 1770 

print"4 ecken und mitte" 
z=16:5=22:gosub 1838 
ifg( 1)=0then 1840 

ifg( 1)=2then 18208 
print"eine extra-kugel 
g0t01848 
ife<1dtheng( 1) =1:g0t01888 
print"zwei extra-kugeln" 
ifg>®then1288 

ife=dthen 1289 

return 


printchr$( 147) cchr$( 156); 
a=8:31=21:32=85:33=93:34=64:a 


sound1,596,28 
a6=4:gosub211D 
sound2,685,28 
a=31:31=16*40+21:32=73:33=95 
a4=66:a5=48 

gosub2118 

sound 1,739,28 
a=al:al=a1-21:32=95:33=94 
84=64:35=-1 

gosub2118 

sound2,8108,38 
sound1,596, 38 
a=a1l:a1=98:32=74:a3=85 
a4=66:35=-48 
gosub2119:gosub2208 
return 


pokef+ta,a6or64:pokeb+ta,a2 
foriß=a+a5Stoa1l-a5Sstepa5 
pokef+i®,a6or64:pokeb+i®,a4 
next 


<ih> 
<jm> 


<lk> 
<fb> 


<kf> 
<ie> 


<lm> 


<dj> 
<jl> 


<cf> 
<mi> 
<de> 
<pa? 
<kb> 
<bg> 
<bj> 
<am> 
<lo> 
<fl> 
<ki> 
<ki> 
<gp> 
<ce> 
<ff> 
<al> 
<gk> 
<of> 


<ho> 
<de> 
<nn> 
<ge> 
<mn> 
<fj> 
<oi> 
<of> 
<ci> 
<ai> 
<on?> 
<la> 
< jm> 
<en> 
<pb> 
<I> 
<mk> 
<]b> 
<ia> 
<mi> 
<nb> 
<gk> 
<ib> 
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2158 
2168 
2178 
2180 
2198 
2200 
22108 
2228 
2238 
2248 
2258 
22608 
2278 
22808 
2290 
2308 
2318 
2328 
2338 
2348 
2350 
2368 
2378 
2388 
2398 
2408 
2410 
24208 
2438 
24408 
24508 
2468 
24708 
2480 
2490 
2588 
2518 
2528 
25308 
2548 
2558 
2568 
25708 
25808 
2598 
2608 
2618 
2620 
2638 
2640 
2658 
2660 
2678 
2688 
2698 
2788 
2710 
2728 


« 


pokef+a1,a60or64:pokeb+a1,a3 
return 


fori=8to4:fori1=-Bdto4 
a=41+120*i+4*i1:al=a+d3 
a2=85:33=73:84=64:85=1:36=7 
sound3,5880,9:gosub2110 
a=a1:31=3+80:32=33:33=95 
a4=66:35=40 

sound3,588, 10:gosub2118 
a=sal:al=a-3:32=33:33=74 
a4=64:a5=- 

gosub211® 
a=31:al=a-89:32=33:33=85 
34=66:85=-48 

gosub211B 
a$=right$l str$( z(5*i+i1)),2) 
3=82+120*i+4*i1 

pokeft+ta, 140r64 

pokeb+a,asc( left$(a$,1)) 
a=a+tl:pokeft+ta, 140r64 
pokeb+ta,asc(right$(a$,1)) 
nextil,i 

sound1,596, 18:sound2, 685, 18 
sound1,739,18:sound2,818,18 
a=655:a1=a+168:32=114:33=95 
84=66:35=40:36=4 

gosub2112 
a=31:a1=a-9:32=33:33=94 
a4=64:35=- 

gosub2118 
asal:al=a-160:32=33:33=114 
a4=66:35=-408 

gosub2118 
a=688:31=3+5:32=85:33=73 
a4=64:35=1:a6=2 

gosub2118 
a=-al:al=a+80:32=33:a3=75 
a4=66:35=48 

gosub2110 
a=sal:al=a-5:32=33:33=74 
a4=64:35=-1 

gosub2118 
a=sal:al=a-80:32=33:33=85 
a4=66:35=-40 

gosub2110 
z=-18:5=0:g0osub 18308 
print"bingo"spce( 12) "bingo" 
return 


„= uunsnnanleunlucnanu-- anne 


z=22:g05ub1128 
z=23:g0sub1128 
z=24:gosub1120 
aß=right$(" "+str$(g),4) 


<eo> 
<ho> 
<gi> 
<gi> 
<pc> 
<dd> 
<op> 
<bj> 
<pn> 
<gp> 
<kb> 
<jn> 
<jj? 
<no> 
<ba> 
<]lh> 


<oc> 


<oe> 
<fn> 
<nh> 
<30> 
<mb> 
<kl> 
<bh> 
<le> 
<kf> 
<bk> 
<nj? 
<ic> 
<pd> 
<eg> 
<ma> 
<kp> 
<ch> 
<ie> 
<gl> 
<bi> 
<cf> 
<ck> 
<cp> 
<od> 
<po> 
<ef> 
<hi> 
<mc> 
<ip> 
<cn> 
<hi> 
<ia> 
<jp> 
<fg> 
<nn> 
<cl> 
<gi> 
<bm> 
<ia> 
<iji> 
<nf> 
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3118 
3128 
3130 
3148 


. 3158 


3168 
64 

3178 
31808 
3198 
32808 
3218 
3220 
3238 


z=18:5=9:g0osub1B38 
printchr$( 18)a$ 
ifg>49then2918 
z=22:5=9:gosub1838 
printchr$( 158)" 


poke239,8:print 
Brinttabl2) "1 - F_ -- 


geta$:ifa$<"B"ora$>"9"then288 


a=valla$) :ifa=®then291® 
fori=1toa 
sound?,917,5 
sound2, 939,5 
grgti:a$=right$l" 


z=18:5=9:gosub 1838 
printchr$( 18) $ 
nexti:goto2888 
ifg>9988thengosub295% 
g0t02698 

return 


fori=1t018® 
g=g-1:3$=right$(" 


z=18:5=9:gosub 1038 
printchr$( 18)a$:next:return 


fori=1to5+g( 1) 
forid=22t024 
z=-i0:gosub1128 

next 

2z=23:5=9:gosub1030 
poke239,8:printchr$( 158); 
print"starten sie die"i". 


geta$:ifa$=""then3098 
z=23:g0osub1128 
z=23:5=B:gosub1038 
print"die"i". kugel laeuft" 
fori1l=1t058:ifi1=1then3178 
s1=intla/5) :aQ=a-5*al 
a=82+4*a2+120*a1 


pokef+ta, 140r64:pokef+ta+t1,14or 


a=-int(rnd( a) *25) 
ifi=i1then3248 
fori2=1toi-1 
ifa<>z2(i2)then323® 
sound2,908,2 
g0t03178 

next 


bitte geldei 


Q=ende 


"+str$(g), 


"+str$(g), 


kug 
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nn 
soo 


DD Wi WW 


33208 
3339 
3348 
3359 
3360 
3378 
96 

3388 
3398 
18 

34889 
3418 
3428 
3438 
3448 
3458 
3460 
3478 
3488 
3498 
a" 

3598 
3518 
3528 
3530 
3538 
3558 
3568 


3578 
3588 
3598 
35908 
3518 
3628 
3638 
3548 
3658 
3660 
3670 
3688 
3699 
3788 
3718 
37208 
3738 
3748 


3758 
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al=intia/5) :ad=a-5*al 
a1=-82+4*a2+128%3] 
pokeftal,70r96:pokef+tal+1,?7or 


sound3, 500,5 

ifi1<35then3388 
fori2=1to( i1-34) "2:next 

next 
pokeftai,?0r249:pokef+atl+1,70 


fori1=1t05 

sound!,595,5 

sound2, 685,5 

sound1,739,5 

next 
pokefta1,90r96:pokef+ail+1,9or 


z2(i)=a 
ifg(6)+g(?)+g(B)+gl9) =Bthen34 


ifli-g( 18) =3) thengosub3458 
next:return 


fori3=22t024 

z=-i13:g05ub11208 

next 

z=22:5=9:g0sub1838 
print"welches quadrat drehen 


print"eingeben ziffer "; 


ifg(6) =iIthenprint"1 "; 
ifg(7)=1Ithenprint"2 "; 
ifg(8) =Ithenprint"3 
ifg(9) =Ithenprint"4 
print 

print"® = nichts mehr drehen" 


r, 
’ 


Hi; 
’ 


geta$:ifa5=""then3578 
al=valla$) :ifa$="d"then3949 
ifal<lora1>4then3579 
ifgla1+5) -2then3578 
ifal=ithenal=® 
ifal=3thenal=15 
ifal=2thena1l=3 
ifal=4thenal=18 
fori3=1to3+g( 12) 

32=z2(i3) 
ifa2=althena2=al+5:g0t03718 
ifad=alt+tithenad=al 
ifa2=al+t6thenad=al+] 
ifa2=a1+5thena2=al+6 
z2(i3)=a2 

next 

ad=int(31/5) :al=al-5*a2 
al=B2+4*a1+120*a2 
32=peek{b+tal) a3=peek(b+tal+1) 


<hk> 
<en> 


<pb> 
<pe> 
<pc> 


<1i1> 


<gd> 


<fa> 
<eon> 
<hp> 
<jp> 
<dp> 
<nm> 


<df> 
<i> 


<fi> 
<da> 
<ad> 
<gk> 
<af> 
<hp> 
<ph> 
<pm> 
<1lj> 
<lh> 


<L?> 
<io> 
<oi> 
<lb> 
<ii> 
<eo> 


<ha> 


<af> 
<fe> 
<oh> 
<ck> 
<hb> 
<ji> 
<np?> 
<nc> 
<ej? 


<jb> 


<hn> 
<kf> 
<30> 
<ac>? 
<kg> 
<cg> 
<kp> 
<nf> 
<gn> 
<jm> 


3750 
3770 
3780 
3738 
3828 
38190 
3820 
3830 
384 

3850 
3868 
3379 
2830 
3890 
3990 
3910 
3920 
3930 
3948 
3950 
3960 
3970 
3938 
3990 
4800 
4810 
4020 
4030 
2040 
4058 
4060 
4078 
4080 
4098 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4248 
4250 
4260 
4270 
4280 
4290 
4308 
4318 
4320 
4330 


ad=peek(ftal) 
pökeb+al,peek(b+tal+4) 
pokebtal+1,peek(b+ta1l+5) 
pokeftal,peek(f+a1+r4) 
pokef+al+1,peekl f*a1+5) 
pokeb+tal+4,peek(b+a1+124) 
pokeb+a1+5,peek(b+a1+125) 
pokef+tal+t4,peek(f+ta1l+124) 
püker+tasits,peeki ftairi25) 
pokeb+a1+124,peek(b+ta1+120) 
pokeb+ta1+125,peek(b+a1+121) 
pokef+a1+124,peek( f+a1+120) 
pokef+a1+125,peek(f+a1l+121) 
pokeb+ta1l+128,a2 
pokeb+a1+121,a3 
pokef+ta1+128,a4 
pokef+ta1l+121,34 

g0t0357®8 

fori3=22t024 

z=-i3:gosub1122 

next:return 


forz=22t024 
gosub1128:next 
z=22:5=0:gosub 1030 
print"gewinn-auszahlung" 
fori=8to5:z(li)=®:next 
fori=1toS+g( 1) 
zi(z2(i))=® 

next 

fori=®to29step5 
a=d:fori1l=dto4 

gosub4578 
nextil:z(la)=z(la)+1:next 
fori=dto4d 
a=-d:fori1=-Bto2dstepS 
gosub4578 
nextil:z(la)=z(la)+ti:next 
a=-90:i1=0 

fori=-®to24step6 

gosub457B 
next:z(a)=zla)+i 
a=d:fori=4t0o20step4 
gosub4578 
next:z(a)=z(a) +1 

ifg( 1j=8then42908 

a2=8 - 
al=z1(0)+z1(4)+zZ1(l20)+z1( 24) 
ifa1l>8thend2908 

ifz1( 12) =@thenz(5)=z(5) +1 
ifz1( 12)>dthenz(4)=z(4) +1 
fori=3t05 
z=24:35=0:gosub1838 
a-g(i)*z(i):ifa=@8thend4448 
printz(i)"mal"i"in reihe je"; 
printgli)"="a; 


« 
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43480 a2=1:poke239,8 

4358 geta$:ifa$=""then4358 
4368 fori2=1toa 

4378 fori1l=1to1®:next 

4380 sound1,810,4 

4398 sound2,854,4 

4400 g=g+1:a$=right$(" "+str$lg), 
4418 z=18:5=9:gosub 1238 

4428 printchr$( 18) a$ 

4438 nexti2 

4448 nexti 

4458 ifa2=1then4548 

4468 z=23:5=9:gosub1838 

4470 a$="" 

4480 fori=1t018 

4490 a$=a$+chr$( 164) 

4508 next 

4518 printa$ 

4528 printchr$( 18)"leider kein gew 


4538 geta$:ifa$=""then45398 

4548 sp(ss)=g 

45580 gosub4898 

4568 return 

4578 ifzili+i1)=Bthena=sati:return 
4588 z(a)=z(a)+1 

4598 a=d:return 


4638 fori=22t024:z=i:gosub1128 
4640 next 

4650 ss=ss+1l:ifss>spthenss=1 

4668 z=22:5=9:gosub 1938 

46978 print"naechster spieler ="ss 
4688 getkeya$ 

4698 ifa$="n"thenend 

4708 Fori=0to24 

4718 zili)=i 

4728 next 

4738 fori=8to4:fori1=Bto4 

4740 a=82+4%i1+120*i 

4758 pokef+ta, 140r64:pokef+a+t1, dor 


4760 nextil,i 

4778 printchr$( 19); 

47808 a$="" 

4798 fori=1t01?9- 

4800 a$=a$+chr$( 32) 

4818 next 

4828 fori=8t01? 

. 4838 printtab( 22)a$ 
4848 next 

4858 return 
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489ß ifsp=1then5828 <ia> 
49808 Fori=1tosp <co> 
4918 a$=right$l" "+str$(sp(li)),4) <ff> 
4920 aBß$=right$( str$(i),1)+"=" <co> 
4930 z=18:s=i:ifi>3thenz=28:s=i-3 <ef> 
49409 s=19+5*s:gosub 1238 <oh> 
4958 color1,5,2 ° <ag> 
49608 ifi=ssthencolor1,5,4 <ce> 
4978 printaß$ <xce> 
4980 z=z+1:5=s-1:gosub 1030 <dd> 
4998 printchr$( 18)a$ <df> 
SB8® next <1j> 
5818 color1,5,4 <bl> 
5028 return <on> 


5938 rem ======-=-==2=2=2== === ========= <de> 


5840 rem 12277 bytes memory <gf> 
Sa58 rem 09545 bytes program <ph> 
5060 rem 091408 bytes variables <aj? 
5078 rem 80490 bytes arrays <ck> 
5088 rem 0808571 bytes strings <kj> 
5098 rem 91531 bytes free (®) <mg> 


5188 Tem ====-=mmmreshemsmmessemesees <ge> 


CHECKMON 

48 rem checkmon ===============516 <con> 
58 rem (p) commodore welt team <ke> 
6B rem =========================== cnk> 
78 rem (c) by a.mittelmeyer <ag> 
88 rem c16/116/plus4 <ki> 


98 rem =========================== (ig) 
188 fori=312t0398:reada <ei> 
118 pokei,a:next <ep> 
128 data 132,218,188,219,8,132,219 <oe> 


130 data 164,218,76,75,236,2@1,62 <nk> 
148 data 208,249, 165, 161,18, 191 <jc> 
150 data 162, 160,7,10,113,161,136 <ej> 
168 data 16,250,133,216,169,3@0,133 <oh> 


178 data 217,169,62,160,97,208,220 <mk> 


188 data 198,217,208,218,160,105 <ai> 
198 data 208,212,201,13,240,4,164 <ha> 
208 data 218,24,96,169,60,160,68 <Ih> 
218 data 32,61,1,165,216,32,16,251 <ec> 


228 data 169,62,160,5,208,2,169,32 <om> 
230 data 32,75,236,136,208,248,169 <ol> 


248 data 13,288, 176,219,68,228,1 <go> 
258 data 884,56,885, 1 <hn> 
268 fori=ito4:reada:readb:pokea,b <Im> 
278 next:new <ji> 
- 2880 rem ========e=n=d=>e=========== <cc> 


"CHECKMON"” ist eine unerlaessliche Hil- 
fe zur Eingabe von Maschinenprogrammen. 
Laden und starten Sie "Checkmon” und 
gehen dann mittels MONITOR in densel- 
ben. Wenn Sie sich nun z.B. mit ’M18B0’ 
einen Speicherbereich ansehen, oder 
Hexzahlen eingeben, so erscheint rechts 
die Pruefsumme anstatt der Asciicodes. 


TEIFPDAT 


18 rem teledat, ==r==--=-=--= === = Shi? 
28 rem (p) commodore welt team <ho> 
30 rem ============-======2========= cng> 
42 rem (c) by bernd welte <ne> 
52 rem herrman wellesen <mk>. 
69 rem <ah> 
72 rem <bl> 
88 rem c16/116/plus4 <ki> 
98 rem ============2=======2=2=2=2=2==== Cjg> 
180 b$=chr$( 32) :5b2$=b$+b$ <gg> 
118 b3$=b2$+b$:64$=b3$+b$:65$=b4$+ 

b$ <o00> 
120 b5$=b4$+b$:1$=chr$( 192) <he> 
138 fori=1t03:1$=1$+1$:next <cd> 
148 color4,7:color®8,7:k$=chr$( 221) <ee> 
158 rn$=chr$( 18) :he$=chr$( 19) <ad> 
168 rf$=chr$( 146) :cl$=chr$( 149) <al> 
178 c4$=chr$( 1?) :s1$=chr$( 32) <kd> 
188 z1$=chr$( 42) <mh> 
1998 forg=1t03:93$=q93$+c4$:nextgq <cg> 
288 forg=1to4:q4$=q4$+cA$:nextgq <ec> 
e‘®d forg=1t06:46$=g6$+cA$:nextq <hf> 
228 forg=-1t07:97$=q7$+c4$:nextg <da> 
238 forq=1t08:98$=q8$+s1$:nextgq <jp> 
248 forg=1t048:qa$=ga$+tzi$:nextq <lp> 
250 forg=1t040:gb$=gb$+s'!$:nextg <hk> 
268 forgq=1t038:gc$=qc$+s1$:nextaq <fb> 
278 printcl$; <ek> 
280 printga$; <ml> 
298 printz1$gc$z1$; <en> 
300 printz!$tab( 13)"a&b welte soft 
ware"g8$z1$; <oh> 
318 printz1$gc$z1$; <bm> 
320 printga$; <me> 
330 printgb$; <aj? 
348 printtabt 15) "U"I$"I" <do> 
3580 printtab( 15)k$"tele-dat"k$ <gf> 
360 printtab( 15) "J"1$"K" <am> 
378 printab$; <ag> 
3880 printgb$; <em> 
39@ printtab( 11)"[ 1] nummerneingab 

e" sr 
408 printgb$; <oc> 
419 printtab(l 11)"[2] gebuehrenerfa 
ssung" <bj? 
420 printgb; <fl> 
430 printtab[ 11)"[3]) ausgabe" <pl> 
448 printabB; " <nd> 
458 printtab( 11)"[4} ende" <dp> 
468 printgb$gb$agb$; <jf> 
478 printtab( 17)"(c) 1985" <fn> 
488 print <fm> 
490 do <mc> 
500 getkeya$ <00> 
519 ifad="1":"en56Q <ce> 
520 ifa$="2":hen93d <np> 
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538 ifa$="3"then819 

540 ifa$="4"thenend 

5580 loop 

568 printchr$( 147) :printtab(9)"fre 
ie bytes "chr$( 18) ;fre(x):print:pr 
int:printchr$( 18)tab( 15) "®= menue" 
578 print:print:printb3$"vor-und n 
achname":print:inputv$:ifv$="®"the 
n1d 

588 print:printb2$"vorwahlnr.":pri 
nt:inputvn$ 

592 print:printb2$"nummer":print:i 
nputn$ 

608 char1,11,28,"alles richtig? (j 
/n)"+b5$+b4$ 

610 do 

628 getkeyg$ 

630 ifg$="n"then560 

648 ifgq$="j"then67® 

652 loop 

668 rem dataerzeugung 

6780 dt= 29801 

688 printchr$( 149) ;dt;"data":v$;", 
Ra 

698 dt=dt+1 

788 print"678 dt=";dt 

718 print"goto 750" 

720 poke1319,19 

738 fori=1to4:poke13208+i,13:next 
740 poke239,4:stop 

758 printchr$( 147) :char1,9,28, "wei 
ter eingaben ? ( j/n)" 

768 do 

770 getkeya$ 

780 ifg$="j"then56ß 

798 ifq$="n"thenrun 

802 loop 

818 restore 

820 readv$,vn$,n$ 

830 ifv$="@ß"thenrun 

840 gosub86B 

8590 g0t0822 

868 printel$g6$s1$;v$ 

870 printc4$c4$" tel. ";ung;" / "; 
n$ 

880 char1,0,20,65$+b5$+b$+"weiter 
bitte taste"+b5$+b4$ 

398 : 

982 getkeyg$ 

919: 

928 return 

938 rem gebuehrenerfassung 

948 printcl$q3$b3$"waehlen sie die 
entfernungszone:"+b5$; 

958 printce4$s1$rn$" O "rf$s1$s1$"o 
rts- und nahgespraeche" 


<ah> 
<mb> 
<dm> 


<ld> 


<nb> 
<hm> 
<ek> 


<eo> 
<ld> 
<je> 
<skg> 
<ab> 
<af> 
<in> 
<pe> 


<dl> 
<ag> 
<po> 
<pn> 
<pj> 
<bk> 
<mp> 


<gf> 
<03> 
<ah> 
<oe> 
<jc> 
<dc> 
<og> 
<ho> 
<nh> 
<je> 
<a0> 
<km> 


<cp> 


<bm> 
<de> 
<co> 
<fn> 
<mf> 
<]a> 


<k-T> 


eo 39 


TELEDAT 


968 printc4$s1$rn$" 1 "rf$s1i$s'tf"e 


ntfernung bis"b4$"59 km" 


978 printc4$s1$rn$" 2 "rf$s1$s1$"e 


ntfernund bis"b3$"1B2 km" 


988 printc4$s1i$rn$" 3 "rf$s1$s1$"e 
ntfernung ueber 108 km"c4$04$ 
998 inputz:z=int( z) :ifz>3thenprint 


c2$c2$:g0t0998 


18088 printcl$q3$b5$"die uhrzeit: 


5$ 
1218 


printc4$s1$rn$" ji "rf$h2R”8 u 


hr bis 18 uhr" 


12828 printc4$s1$rn$" 2 "rf$" 


r bis"b2$"8 uhr"c4$c4$ 


1838 inputu:u=sint(u) :ifu>2oru<ithe 


nprintc2$c2$:g0to1838 


1248 printcl$g3$s1$b4$"den wochent 


ag:"b4$ 


1252 


printc4$s!$rn$" 1 "rf$" 


g bis freitag" 


10868 printc4$si$rn$" 2 "rf$" 
ag,sonntag und feiertage"c4$c4$ 
1078 inputd:d=int(d):ifd>2ord<ithe 


nprintc2$c2$:g0t01078 


1088 
1090 
1188 
1118 
11208 
1130 
1148 
1158 
ginn 
1160 
1178 
11808 
1198 


n=480:9g=728 
ifz=1thenn=45:g=69.5 
ifz=2thenn=28:g=38.571 
ifz=3thenn=12:g=38.571 
e=n 

ifd=2oru=2thene=g 
printcl$; 


printgq?$rn$" bei gespraechsbe 
taste druecken !"b2$rf$ 


getkeya$ 
ti$="B80000" 
printel$s1$"dauer:" 


printc4$s1$s1$b5$b5$b$"gebueh 


reneinheiten" 


1288 printq3$s1$s1$b5$h5$b$"gespra 
echskosten 
1218 t=vallleft$(ti$,2))*3600+vall 
mid$(ti$,3,2))*60+vallright$(ti$,2 


I} 


1220 
1238 


1248 printhe$tab(8) left$lti$,2)"." 
mid$(ti$,3,2)"."right$(ti$,2) 


1258 
1260 
100" 
1270 
1280 
1298 


" 


b=-int(t/e+1) 
b1=b*.23 


printc4$s1$s!$int(b) 


printg3$s1$s!$int(b1*1908+.5) / 


b=-9:b1=8 


printrn$; 


char1,0,21,b2$+"bei gespraech 


sende taste druecken"+b5$ 


1308 


1310 char1,0,21,b5$+b5$+b$+"noch e 


getz$:ifz$=""then?212 


<hl> 
<ak> 
<mk> 
<mo> 
<1j> 
<]lh> 
<dd> 
<mg> 
<eh> 
<en> 
<hl> 


<rın> 
<hf> 
<mg> 
<ka> 
<al> 
<oh> 
<bi> 
<af> 


<gl> 
<fo> 
<mf> 
<ha> 


<ig> 
<pp> 
<pd> 


<fb> 


<cl> 


<fh> 
<mb> 


<nc> 
<aj? 
112 


<cd> 
<bp> 


inmal? (i/r}"+b5$+b5$+b$ <md> 
1328 printrf$:do:getkeyz$ <cd> 
1330 ifz$="n"then27® <ki> 
1348 ifz$="j"then938 <bb> 
1358 loop . <ic> 
1369 rem SFHFsassssrerssesrrnsErse 00’ 
1378 rem 12277 bytes memory <ja> 
1380 rem 83465 bytes program <je> 
1398 rem 00203 bytes variables <bi> 
1400 rem BORD bytes arrays <ip> 
1418 rem 00558 bytes strings <mo> 
1428 rem 08051 bytes free (®) <nk> 
1430 rem ========================= Cok> 
san0D dataQd,00,08 <be> 


TELE- 


Diese Telefondatei er- 
möglicht dem Plus/4 Be- 
nutzer endlich die Ver- 
waltung von Telefonnum- 
mern UND die Überprü- 
fung der Telefonkosten 
in einem Programm! 
Nach Start des Program- 
mes wird im Menü ausge- 
wählt. Hierbei ist erstens 
die Neueingabe von Tele- 
fonnummern (natürlich 
mit dem zugehörigen Na- 
men) möglich, zweitens 
das Durchblättern der be- 
reits gespeicherten Daten 
und drittens die Gebüh- 
renerfassung. 

Zu 1: Nach der voll- 
ständigen Eingabe einer 
Adresse schreibt das Pro- 
gramm SELBSTTÄTIG 
diese Adresse in eine 
Data-Zeile und hängt 
diese an das Programm- 
ende an. Daher nach je- 
der Benützung das Pro- 
gramm neu absaven, be- 
vor Sie es aus dem Rech- 
ner „rausschmeißen“, um 


die Daten nicht zu verlie- 


ren. 
Zu 2: Mit einer belie- 
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bigen Taste kann hier 
weitergeblättert werden, 
um die Datei durchlaufen 
zu lassen. 

Zu 3: Dieser Menü- 
punkt unterscheidet ‚Te- 
ledat‘ von den herkömm- 
lichen Datei-Programmen. 
Der Benützer wählt zu- 
erst den entsprechenden 
Wochentag sowie die Uhr- 
zeit aus (damit Teledat 
zwischen den verschiede- 
nen Tarifen unterschei- 
den kann) und drückt 
dann bei Gesprächsbe- 
ginn eine Taste. Im obe- 
ren Bildschirmteil er- 
scheint nun eine laufende 
Stopuhr, darunter wer- 
den die bereits ‚‚ver- 
brauchten“ Einheiten so- 
wie die Gesamtsumme für 
das Gespräch angegeben. 
Bei Ende des Telefonats 
muß wieder eine beliebi- 
ge Taste gedrückt wer- 
den, damit die Berechnung 
beendet wird. Nun kön- 
nen die Gesamtsumme, 
Gesprächsdauer und die 
Gebühreneinheiten abge- 
lesen werden. 


ANZEIGENSERVICE 


Die große Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spottbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daß wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vor- 
behalten müssen, insbesondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean- 
zeigen werden nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen 4 28 Anschläge. Für gewerbliche Anbieter: 5 DM p. mm. 


ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen 4 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In- 
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COMMODORE WELT a 
ANZEIGENABTLG kasakshen 
POSTFACH 1161 Straße/Hausnr. 
D-8044 UNTERSCHLEISSHEIM Plz/Ort 
>E-- - - - - - - - - --- - - - - -----------------------------.0.02- ” 
DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 
Das bietet Ihnen COMMODORE-WELT: KLEIN- serenten, keine gewerblichen Anzeigen. Die kosten 


pro Millimeter DM 5.00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The- 
menkreis des Heftes - Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeigenteils zu- 
läßt. 


# 


20/64/1228 
16 / PA / 116 


Das unabhängige Commodore- Magazin 


KOMMT REGELMASSIG ZU IHNEN 


INS HAUS 


Finden Sie Ihre COMMODORE-WELT nicht am 
Kiosk? Weil sie schon ausverkauft ist? Oder „Ihr" 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 60 DM liefern wir Ihnen per Post zwölf 
Hefte ins Haus (Ausland 80 DM). Einfach den 
Bestellschein ausschneiden — fotokopieren oder 
abschreiben, in einen Briefumschlag und ab per 
Post (Achtung: Porto nicht vergessen). COMMO- 
DORE-WELT kommt dann pünktlich ins Haus. 


WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 
Verlag widerrufen — Postkarte ge- 
nügt. Ansonsten läuft dieser Auf- 
trag jeweils für zwölf Ausgaben, 
wenn ihm nicht vier Wochen vor 
Ablauf widersprochen wird, weiter. 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


ABO-SERVICE- KARTE 


17 COUPON 


Ja, ich möchte von Ihrem Angebot 


Gebrauch machen. 
Bitte senden Sie mir bis auf Wider- 


ruf ab sofort jeweils die nächsten 


zwölf Ausgaben an untenstehende 
Anschrift. Wenn ich nicht vier Wo- 
chen vor Ablauf kündige, läuft diese 
Abmachung automatisch weiter. 


Ich nehme zur Kenntnis, Name _ 
daß die Belieferung Vorname , 
erst beginnt, wenn die ET 
Abo-Gebühr dem Verlag 

Plz/Ort 


StraB@/Hausntiam et ei 


zugegangen ist. 
Ich bezahle: 


OD per beiliegendem insckuntacherh 


DO gegen Rechnung 


OD bargeldlos per Bankeinzug von meinem Konto 


bei (Bank) und Ort__:__ | De ne 


Kontonummer . 


Bankleitzahl _——— 
(steht auf jedem Kontoauszug) 


COMMODORE WELT 


-ABO-SERVICE 16/7 Unterschrift. 


POSTFACH 1161 


D-8044 


UNTERSCHLEISSHEIM Unterschrift 


Von meinem ER habe ich Kenntnis genommen. 
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PROGRAMNMSERVICGE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die Listings dieses Heftes auf 
7 Kassetten zu 40,- D Disketten zu 40,- (16er) 


Ich zahle: 
Zutreffendes bitte ankreuzen! 


per beigefügtem Scheck ( ) Schein ( ) 
Gegen Bankabbuchung am Versandtag ( ) 


Meine Bank (mit Ortsname) ____________.___ ERTL AERET _ 16/7 
Meine Kontonummer __ ART er : Ze ee een 
Meine Bankleitzall__ _________________.__(steht auf jedem Bankauszug) __ En Rn 

Vorname _ ee Ta es ea er er, 
SL ENR. 02 ER ER nn ST ae ar 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. Umtausch bei 
Nichtfunktionieren. 16/7 


Unterschrift _ j Be e no SEE re FE net 
Bitte ausschneiden und einsenden an 


COMMODORE WELT 
KASSETTENSERVICE 16/7 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


LESER WERBEN LESER 


GEWINNEN SIE EINE COM- 
PUTER-UHR! Und zusätzlich 
eventuell noch ein großes Com- 
modore-Buch. Oder ein Paket 
Disketten. ODER AUCH EINEN 
COMMODORE-DRUCKER - 
ODER EINE DISKETTENSTA- 
TION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer- 
Uhr gewonnen. Zusätzlich ver- 
losen wir unter allen, die mit- 
machen, jeden Monat vier weitere _ 
wertvolle Preise. Und alle sechs Herrn/Frau 
Monate gibt es einen Hauptpreis 
unter allen Abo-Werbern zu 
gewinnen. Also: Mitmachen. Mit- Straße/Hausnr Kane. 

gewinnen. s zz — — 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie ab- 
gebildet, und nehme zusätzlich 
noch an der Verlosung des Monats. 
sowie der halbjährlichen Haupt- 
preise teil. Mir ist bekannt, daß 
der Rechtsweg bei den Verlosun- 
gen ausgeschlossen ist. 

Meinen Preis senden Sie an 


er Straße/Hsnr. _______ 
Plz/Ort Ere EIERN N ae 


“ (Bitte ausschneiden und zusam- 
Ja, ich mache mit beim Abo- als neuen Abonnenten der COM- men mit der Abo-Bestellkarte 
Wettbewerb. Ich habe MODORE WELT geworben. links einsenden!) 16/7 
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VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116, Plus 4? Oder einen 128? Können Sie 
programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Name des Einsenders: 
Straße/Hausnr./Tel.: 


Sollten Sie keinen Drucker haben, genügt der Daten- 
träger. 

Sie erhalten Ihre Kassette/Diskette selbstverständ- 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu- 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete”’ Programme ziemlich schnell er- 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


Plz/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt ( ) Listings ( ) Kassette ( ) Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service.aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy- 


right geht insoweit auf den Verlag über. 


Rechtsverbindliche Unterschrift 


COMMODORE WELT 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


LISTING | 


MODORE WELT 


Fr Figannnnn Ba 


. HOTLINE 
Mittwochs 
15.00 - 19.00 Uhr 
Tel: (089) 129 80 13 


COMMO- 
DORE- 
SPECIAL 


erscheint achtmal jährlich 
(4x C16, 4x 128) in der 
CA-Verlags GmbH (1.G.) 


VERANTWORTLICH 
FÜR DEN INHALT: 
Alfons Mittelmeyer 


REDAKTION UND 
STÄNDIGE MITARBEITER: 
Peter Basch, Harald Beiler, 
Rosemarie Huber, Lothar 
Miedel, Michael Reppisch, 
Rudolf Schmid-Fabian, 
Torsten Seibt, Hermann 
Wellesen, Bernd Welte 
GESCHÄFTSFÜHRER 

(und verantwortlich für 
Anzeigen): 

Werner E. Seibt 


ANSCHRIFT FÜR ALLE 
VERANTWORTLICHEN: 
Postfach 1107, 

8044 Unterschleißheim 


- Tel.: 089/129 80 11 ei 
Telex: 5214428 cav-d 


Es gilt Preisliste Nr. 7 vom 
1.2.1987 
Media-Unterlagen bitte 


anfordern. 


‘©1987 by CA-Verlags GmbH 


(1.G.), Heßstraße 90, 
8000 München 40. 


"SPS und Autoren. Für unauf- 
‘gefordert eingesandte Manu- 


skripte und Listings keine 
Haftung. Bei Einsendung 
von Texten, Fotos und 
Programmträgern erteilt der 
Autor dem Verlag die Geneh- 


migung für den Abdruck und . 


die Aufnahme in den Kasset- 
ten-Service zu den Honorar- 
sätzen des Verlages.und über- 
trägt dem Verlag das Copy- 
right. Alle in dieser Zeit- 
schrift veröffentlichten Bei- 
träge sind urheberrechtlich 
geschützt. Jedwede Verwen- 
dung ist untersagt. Nament- 
lich gezeichnete Beiträge 
unserer Mitarbeiter stellen 
nicht unbedingt die Meinung 
der Redaktion dar. 


VERTRIEB: 
Verlagsunion Wiesbaden 


rg by CA Verlags GmbH 
1.0, 


Printet in Germany 


FIRE- 
COPTER IM 


KATASTRO- 
PHENGEBIET 


Bilutigrot ist der Himmel vom Widerschein glühen- 
der Lavamassen. Gewaltige Eruptionen lassen die 
Erde erbeben. Mitten in diesem Inferno steckt eine 
Person. Die ungefähre Position ist bekannt. Mit dem 
Hubschrauber starten Sie zu einem wahren Himmel- 
fahrtskommando. 

Im weitern Umfeld eines Vulkans ist es zum Aus- 
bruch von mehreren Nebenkratern gekommen. Ihre 
Aufgabe ist es, diese Krater mit einem Spezialhub- 
schrauber zu löschen und eine vermißte Person zu 
retten. In der von oben dargestellten Landschaft sind 
die Höhenunterschiede durch Helligkeitsabstufungen 
dargestellt (hell = hoch/dunkel = tief). Die Ausbruch- 
stellen der Krater sind rot gekennzeichnet. Die vier 
Eckfelder sind Landeplätze. 

Ihr Hubschrauber ist im rechten Bildschirmteil von 
der Seite im Verhältnis zur Bodenhöhe zu sehen und 
auf der Landschaft als blinkender Stern abgebildet. 
Die Anzeige im unteren Bildschirmteil stellt folgende 
Werte dar: 


GER = Links (Minuswerte)/Rechts (Pluswerte) 

O/U = Oben (Minuswerte)/ Unten (Pluswerte) 

FG = Fallgeschwindigkeit (Steigflug = Minus- 
werte / Sinkflug = Pluswerte) 

TA = Tankfüllung 

LF = Füllung an Löschflüssigkeit 

PER = Anzahl der geretteten Personen 

M/P = Koordinaten der vermißten Person 


Die Steuerung erfolgt über Port 1: 
Li = Fire-Copter bewegt sich auf der Karte 
nach links 


Re 2 Fire-Copter bewegt sich auf der Karte 
nach rechts 

vorn = Fire-Copter bewegt sich auf der Karte 
nach oben 

rück = Fire-Copter bewegt sich auf der Karte 
nach unten 

Fire = Schubkraft (Fire-Copter fliegt hoch) 

Fire + vorn= Löschen 


Der Spielverlauf: £ 

Der Fire-Copter startet immer automatisch. Um 
den Fire-Copter in der Luft zu halten, muß die 
Schwerkraft durch Schub kontinuierlich überwun- 
den werden. Je weniger Löschflüssigkeit der Fire- 
Copter mit sich führt, umso weniger Schub ist erfor- 
derlich. Bei der Beschleunigung in die jeweiligen Rich- 
tungen muß speziell auf die Trägheit des Fire-Copters 
geachtet werden. 


75 


| LISTING | 


Eine Landung ist innerhalb des gesamten Spielfel- 
des möglich, wenn L/R und O/U auf Null stehen und 
wenn bei Bodenkontakt die Sinkgeschwindigkeit +8 
nicht überschreitet. Innerhalb der Landefelder 
(Ecken) erfolgt eine Auffüllung der Löschflüssigkeit 
und das Abladen von geretteten Personen. 

Die vermißte Person befindet sich in umittelbarer 
Nähe der angegebenen Koordination. Sobald Sie den 
genauen Sektor erwischt haben und gut gelandet sind, 
steigt die Person aus ihrem Versteck und klettert in 
den Fire-Copter. 

Zum Löschen der Krater müssen Sie das betreffen- 
de Feld vorsichtig und mit möglichst großer Boden- 
distanz anfliegen. Ist der Krater erreicht, schießt von 
unten her Feuer zu Ihnen herauf, wobei Sie möglichst 
schnell löschen sollten. Sobald die Löschflüssigkeit 
den Boden erreicht hat, können Sie den Löschvorgang 
abbrechen, um nicht zuviel Flüssigkeit zu verlieren. 
Wenn der Löschvorgang abgebrochen wurde, ohne 
daß der Boden erreicht wurde, fressen sich die Flam- 
men weiter nach oben. 

Wenn die vermißte Person gerettet und alle Krater 
gelöscht wurden, müssen Sie auf einem Landefeld 
(Ecke) landen, um in die nächste Runde zu gelangen, 
wo schwierigere Bedingungen (mehr Krater) auf Sie 
warten. : 

Ihr Auftrag wird abgebrochen: 

— Bei Verlassen des Spielfeldes (Landschaft) 

— Bei Höhenüberschreitung 

— Bei zu harter Landung oder Landung unter Fort- 
bewegung 

— Bei Erfassen des Fire-Copters durch Kraterfeuer 

— Bei Treibstoffmangel 


Variablenliste 


A,B,C,D = Universelle FOR-NEXT-Variablen 

BO = Bodenposition 

E = 

H = Horizontale Feldposition 

Hl = H ungerundet 

HZ = Zufallsvariable für horizontale Krater- 
position 

K% = Spielfeld 

KR = Anzahl der Kraterlöschungen 

KS = Summe der Krater 

LA = RESTORE-Umschalter 

N = 

PI1 = Aktuelle Personenzahl 

P2 = Summe der geretteten Personen 

P3 = Horizontale M/P-Position (Rettungsko- 
ordinaten) 

P4 = Vertikale M/P-Position 

PS: = Markierung für abgeladene Person 

RU = Rundenbegrenzung / Anzahl der Krater 

S = Position der Fire-Copter-Abb. seitl. 

sl = S Ungerundet 

sc = Schubeinheit 

SP = Sprit 

u = Rate L/R 

T2 = Rate O/U 

T3 = Rate FG 

US = Begründung für Spielabbruch 


V = Vertikale Feldposition 

Vi = V ungerundet 

VZ = Zufallsvariable für vertikale Kraterposi- 
tion 

VU = Markierung für Vulkanfeld 

W = 


Füllung an Löschflüssigkeit 


PROGRAMMBESCHREIBUNG 


Durch Abruf des Unterprogrammes 1590 - 1870 in 
Zeile 120 werden die USR-Zeichen erzeugt, wonach 
in Zeile 130 die wichtigsten Variablen definiert wer- 
den. Die Zeilen 140 - 190 dienen zur Erzeugung des 
Titelbildes. 

Die Festlegung des Spielfeldes wird im Unterpro- 
gramm 1080 - 1410, die Spielfelddarstellung und 
die Auslosung der Vulkanfelder in den Unterpro- 
grammen 1420 - 1530, sowie 1540 - 1550 vorgenom- 
men (Zeile 190). In Zeile 200 werden weitere Variab- 
len festgelegt. Durch GOSUB 340 in Zeile 210 wird 
der Boden abgebildet und GOTO 580 in derselben 
Zeile läßt das Spiel beginnen. 

Zeile 580 stellt den Fire-Copter durch GOSUB 220 
auf der Karte dar. Im Falle eines Vulkanfeldes läßt 
Zeile 590 zu den entsprechenden Unterprogrammen 
verzweigen (GOSUB 230). 

Zeile 600 ermöglicht das Ablassen von Löschflüs- 
sigkeit, ohne daß ein Grund hierfür vorliegt (GOSUB 
360). 

Innerhalb der Zeilen 610 - 640 erfolgt die Joystick- 
abfrage hinsichtlich der vier Richtungen. In Zeile 
650 wird der Schub abgefragt. Die Zeilen 660 - 680 
begrenzen die Ergebnisse der Joystickabfragen auf 
ein Maximum. Die Zeile 690 rechnet die Joystick- 
abfragen auf die Darstellungsvariablen um. 

Innerhalb der Zeilen 710 - 740 wird ein Spielab- 
bruch im Falle einer Spielfeldüberschreitung herbei- 
geführt. 

Die Zeilen 750 - 790 aktualisieren die Darstellung 
des Bodens und des Fire-Copters. 

Die Zeile 800 ermittelt eine evtl. vorliegende Bo- 
denunterschreitung und verzweigt gef. zur Zeile 
860. Im Falle einer Höhenüberschreitung erfolgt 
durch Zeile 810 ein Spielabbruch (GOTO 980). 
Die Darstellung und Ausgabe der Kontrollwerte über- 
nimmt ‚Zeile 830. Falls kein Sprit mehr vorhanden ist, 
kommt es durch Zeile 840 ebenfalls zum Spielab- 
bruch. 

Die Zeile 850 läßt zum Schleifenanfang zurückkeh- 
ren (GOTO 580). 

. Verzweigt das Programm in Zeile 590 (GOTO 
230), erfolgt zunächst eine Joystickabfrage (Zeile 
250) auf begründete Ausschüttung der Löschflüssig- 
keit. Der Löschvorgang kommt durch GOSUB 540 
zur Darstellung. Die Zeile 260 fragt ab, ob das Feuer 
den Copter erreicht hat und verzweigt ggf. zum Spiel- 
ende (GOTO 980). Hat die Löschflüssigkeit dagegen 
den Boden erlangt, so wird die Schleife mit GOTO 
290 verlassen. Innerhalb der Zeilen 290 - 320 erfolgt 
eine weitere Verringerung der Löschflüssigkeit, bis 
sich der Joystick in 0-Stellung befindet (Zeile 290). 
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ETFRE-DOPTER 


"2 rem fire-copter 


28 rem (p) 7/87 commodore welt 
JB rem ======================= 
22 rem (c) by peter bergen 

se rem hildesheim 

S® rem 

”® rem basic v3.5 

5® rem c16/116/plus4 

38 rem ==================2==0== 


88 poke55,8:poke56,56:c1lr:gosub19 
22 

‘18 a=srnd(-ti) 

28 gosub1598:color®,1:color4,1:sc 
nelr:vol4 

138 dimk%( 38,15) :e=1:n=Q:ru=5:1la=2 
148 scnclr:forb=3to34step6:fora=22 
to3step-e 

158 colore,?,4:chare,b,a,zv$+"ABC" 
:chare,b,ate,"DEFG":colore,3,3:cha 
re,b,at2, "HER" 

168 forc=eto5ß:next:sounde, 188, .1: 
next:next 

178 colori,2:chare, 14,8,fl$+"fire- 
copter"+fo$:fora=eto208®:next 

188 scnclr:colore,6:chare, 12,8,f1$ 
+" bitte warten!"+fo$ 

198 vol4:color4,e:colorn,e:gosub1® 
80:w=50:g0osub1420:gosub 1548 

288 t1=0:t2=0:t3=9:w=50:sp=2B800:h1 
=1:v1=1:h=1:v=1:51=18:s=18:50=102: 
sc=.86 

218 bo=15:gosub348:g0t0588 

228 colore,1ß,(k%(h,v)+te)/2:chare, 
h,v,rn$+" "+rf$:sounde, 208, ..4:retu 

rn 

230 b=ste:vol5:a=bo 

240 gosub568 

258 ifjoy( 1)=129andw>3thenw=w-e:sc 

=sc+t.Bß1l:gosub540:gosub570:b=bte:a 
=ate 

268 ifa<st2thenvol4:u$="eine akute 
 ueberhitzung":gosub340:g0t0988 

278 ifb>bo-ethenkr=kr+1:goto298 

a=a-e:sound3,n,2:g0t0248 
sound3,n,2:ifjoy( 1)=®thengoto3 


ifw<ethengoto338 
w=w-e:sc=sct.001:gosub548 
g0t0298 

fora=stetobo:chare, 34,3,b4$:ne 


348 color1,180,4:fora=bo+2to23:char 
e,34,a,rn$+b4$+rf$:next:vol4 

358 color1,2:chare, 34,24, "MMMM":re 
turn i 

368 colore,7,5:forb=stetobo-e:gosu 


.<cc> 


<oe> 
<ae> 
<pk> 
<nb> 
<ah> 
<nl> 
<ki> 
<aa> 


<an> 
<hf> 


<fb> 
<jp> 


<je> 


<ka> 
<af> 
<lc> 
<np> 
<oi> 


<le> 
<eo> 


<ph> 
<nc> 
<oa> 


<gl> 
<cb> 
<dn> 
<lg> 
<lp> 
<ka> 
<nh> 
<md> 
<jg> 


<le> 


<ok> 
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. 658 


b578:next:goto290 

378 colore,2:fora=21tosstep-e:char 
e,35,a,"HI":chare, 35,a+8,"JK":char 
e,35,a+2,b2$ 

388 next 

390 gosub520:u$="eine luftraumuebe 
rschreitung":return 

408 vol?:colore,7,4:fora=s-etobote 
:chare,34,3,b4$:chare,34,ate,zv$+" 
ABC" 

410 chare,34,a+t2,"DEFG":nexta:colo 
re,3,4:sound3, 288,58:forb=at2toa-2 
step-e 

428 chare,34,b, "**##*":forc=eto2Bß: 
next:next:vol4:gosub53® 

430 u$="treibstoffmangel":return 
448 gosub528:u$="eine zu harte lan 
dung":return 

458 colore, 18,4:chare,34,bo,rn$+b4 
$:chare,34,bote,b4$+rf$:return 

468 colore, 1d,4:a=21 

478 chare,35,a,rn$+"Q":chare,35,a+ 
e,"P":chare,35,a+2," "+rf$:gosub53 
(7 

4808 ifa<stethenreturn 

498 a=a-e:chare,35,a,rn$+t"0":chare 
‚35,ate,"RA":chare,35,a+2," "+rf$:g 
osub53® 

508 ifa<stethenreturn 

518 a=a-e:goto47B 

528 vol?:colore,3,4:sound3, 288,58: 
fora=s-etos+2:chare,34,a,"*#**#*":ne 
xt:vol4 

538 fort=1t0588:next:return 

548 colore,2:chare,8,22,"":printus 


- ing" ###" ;w:colore,7,5:return 


558 colore,2:chare, 18,22,"":print; 
p2:return 

568 colore,3,2:chare,34,a,"####";r 
eturn 

578 colore,?,4:chare,34,b,"NNNN":r 
eturn 

580 gosub220 

598 ifvu=ithenvu=d:gosub238 

688 ifjoy( 1) =129thengosub368d 

618 ifjoy( 1)=?thent 1=t1-.83 

628 ifjoy( 1)=3thent1=t1+.03 

638 ifjoy( 1) =5thent2=t2+.03 

648 ifjoy( 1)=ithent2=t2-.83 

ifjoy( 1J=128thent3=t3-sc:sp=sp 
-5:sounde,e,.2. 5 

668 ifti>.8thenti=.8 

678 ift2>.8thent2=.8 

688 ift3<-.6thent3=-.6 

698 hi=hi+ti:vi=vi+t2:si=si+tt3:h=i 
nt(h1+.5) :v=int(v1+.5) :s=int(s1+.5 


<da> 
<eg> 
<hm> 


<jb> 


<mn?> 


<il> 


<ic> 
<gm> 


<po> 


<jg> 
<fo> 


<bn> 
<da> 


<ib> 
<be> 
<kf> 


<ok> 
<dj> 


<bk> 
<ef> 
<hd> 


<dp> 
<cf> 
<bm> 
<cd> 
<im> 
<mj> 
<le> 
<hj> 


<ip> 
<em>? 


<pl>, 


<kg> 


-LIRESEIPTER 


) :t3=t3+.02 

708 sp=sp-.2 

718 ifh<e orv<ethengosub370:goto98 
(2) 

728 ifh>38thenh=38:gosub220:gosub3 

78:g0t098® z 

738 ifv>15thenv=15:gosub229:gosub3 

78:g0t0988 

740 ifk%Ch,v)=14thenvu=1:k%Ch,v)=k 

%Uh-e,v) 

758 colore,2::chare,h,v,rn$+"#"+rf 
$ 

768 bo=24-k%Ch,v) 

770 chare,34,bo-2,b4$:chare,34,bo- 
e,b4$ 

788 colore, 10,4:chare, 34,bo,rn$+b4 
$:chare,34,bote,b4$+rf$:colore, 7,4 

790 chare,34,s-2,b4$:chare,34,s-e, 
zv$+"ABC":chare,34,s,"DEFG":chare, 
34,ste,b4$+trf$ 

888 ifs>bo-2thengoto864 

818 ifs<3thengosub370:g0t0982 

828 chare,2,20,"" 

838 printusing"AHHHH" ;intlt1*50+.5 

) ,int(t2*58+.5) ,int(t3*59+.5) ,int( 
sp) 

840 ifsp<nthengosub409:g0t0988 

850 goto58® 

860 poke239,8 

878 ift1>.020rti<-.B20rt2>.020rt2< 

-.820rt3>.2thengosub440:g0t09808 

8880 gosub45® 

898 ifh=eorh=3ß8thengoto99%:elsegot 

0938 

988 ifv=eorv=15thengoto919:elsegot 

0938 

918 w=50:sc=.06:p2=p2+p1:p1=Q:gosu 

b5409:gosub55® 

928 ifkr=ruandp5S=ethenp5=B:g0t0958 

938 ifh=p3andv=p4thengosub460:p1=e 
:pS=1:gosub559:p3=9:p4=®:chare,24, 

28,b4$+b$ 

949 gosub538:t1=n:t2=n:t3=t3-.6:sp 

=sp-2%:g0t0588 

958 scnelr:colore,2:chare,2,8,rf$+ 
"sie haben ihren auftrag erfolgrei 

ch" 

968 print,c4$c3$"beendet. fliegen 
sie nun zu ihrem":printc4$c3$"naec 
hsten einsatzort!" 

978 fora=1t02000:next:ks=ks+tkr:ru= 
rut2:kr=90:goto14® 

988 scnelr:colore,6:chare,e,5,"der 
einsatz wurde abgebrochen, weil " 
+b4$ 

998 printc4$;u$;" vorlag." 


<hb> 
<jl> 


<ge> 
<mf> 
<ak> 
<cm> 


<ih> 
<gd> 


<fb> 


<jp> 


<eh> 
<ml> 
<lo> 
<if> 


<nh> 
<ld> 
<30> 
<na> 


ng? 
<ac> 


<cp> 
<fi> 
<ak> 
<mn> 
<pf> 


<he> 


<bi> 


<oj> 


<dj> 


<fn> 
<ci> 
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10888 colore,3,5:printc4$c4$c4$" ih 
re bisherigen leistungen:" 

18108 printc4$" kraterloeschungen 
";ks+kr:print" gerettete personen: 
”, 2 5 

1020 colore,6:printc4$c4$c4$" moec 
hten sie dennoch den naechsten" 
1830 printc4$" einsatz fliegen? (j 
=ja/n=nein)" 

19040 geta$ 

10858 ifa$="j"thenscnelr:kr=B:ks=®: 
p2=9:p1=9:goto18® 

108698 ifa$="n"thennew 

10780 goto1948 

10888 ifla=ithenrestore12708:la=2:el 
serestore1128:la=1 

10898 forb=eto15:fora=seto3ß:readc:k 
% a,b)=c:next:next 

1100 forb=eto15:fora=eto3®:colore, 
18,(k%Ca,b)+e)/2:chare,a,b,rn$+" " 
+rf$:next:next 

1118 return 


1120 data5,4,5,5,6,6,5,4,3,2,2,2,2 
‚2,2,3,4,5,6,7,8,9,8,7,7,6,5,4,4,3 
1130 data4,5,6,6,7,7,6,5,4,3,2,2,2 
‚2,3,4,5,6,7,8,9,10,9,8,7,6,6,5,5, 
4 


1140 data5,6,7,7,7,8,7,6,5,4,3,2,2 
‚3,4,5,6,7,8,9,10,11,10,9,8,7,6,5, 
4,3 

1150 data6,7,8,8,8,9,8,7,6,5,4,3,3 
‚0,5,6,7,8,9,10,11,12,11,10,9,8,7, 
6,5,4 

1160 data?,8,9,9,9,10,9,8,7,6,5,4, 
4,5,6,7,8,9,10,11,10,11,10,9,8,8,7 
‚6,5,4 

1170 data8,9,9,9,10,11,10,9,8, 
5,5,6,7,8,7,8,9,10,10,11,10,9, 
6,5,4,4 
1180 data8,9,9,10,11,12,11,10,9,8, 
7,6,6,5,6,7,6,7,8,9,10,11,10,9,9,8 
7,6,5,5 

1190 data9,10,11,12,13,12,11,10,9, 
8,7,6,5,6,6,5,6,7,8,9,10,9,9,8,7,6 
‚5,5,6,6 

1200 data8,9,10,11,12,12,12,11,10, 
9,8,72,6,6,7,6,5,5,6,7,8,9,10,9,8,7 
‚6,5,8,6 

1210 data?,8,9,10,11,11,11,10,9,8, 
7,6,6,5,6,5,6,5,5,6,7,8,9,10,9,8,7 
6,9,3 

1220 data6,7,8,9,190,10,10,9,8,7,6, 
5,5,6,5,5,5,4,5,6,7,8,9,10,10,9,8, 


7,6, 
8,7, 


7,8,8 
1230 data5,6,7,8,9,9,9,8,7,6,5,4,4 
‚5,4,4,4,3,4,5,6,7,8,9,10,10,9,8,9 


<bm> 


<fm> 


<kc> 


<gj> 
<mn> 


<hk> 
<kb> 
<1j> 


<pc> 


<gp> 


<hg> 


<ec> 


<nj? 


<am?' 


<nh> 


<ld> 


<1j> 


<nf> 


<kd> 


<gl> 


<on> 


<fe> 


<ia> 


EL RESCOPTER 


DVD—-QwNnN& 5 


data?,7,7,7,7,8,9,10,9, 
‚3,2,2,3,4,5,4,3,2,2,2,2, 
® data8,7,7,7,8,9,10,11,10,9,8, 
‚6,5,4,3,3,4,5,6,5,4,3,2, 2,2,2,2, 
’ 

298 data8,8,7,8,9,10,11,12,11,18, 
‚7,6,5,4,4,5,6,7,6,5,4,3,2,2,2, 
2 

’ 
0 dataB,8,8,9,10,11,12,13,12,11 
7,6,5,5,6,7,8,7,6,5,4,3,2, 


8, 
2 
ata7,8,8,8,9,10,11,12,11,18, 
‚6,5,5,6, 7, 8,9,8,7,6,5,4, 3,2, 
data?,7,8,8,8,9,10,11,10,9,8, 
5,5,6,7,8,9,10,9,8,7,6,5,4,3,2 


data7,7,8,8,8,8,9,10,9,8,7,6, 
6,7,8,9,10,11,10,9,8,7,6,5,4,3 


data7,8,8,8,9,8,8,9,8,7,6,5,5 
8,9,10,11,12,11,10,9,8,7,6,5, 


ul | 

4,4, 

1 358 data8,8,8,9,108,9,8,8,9,6,5,5, 

6,7,8,9,10, 11, 12, 13, 12, 11,180,9,8,7 
‚6,5,5,5 

1360 data8,8,9,180,11 
5,9,6,7,8,9, 10, 1%, 
9495,.65:6 

1370 data8,9,18,11,12,11,10,9,8,7, 
6,5,5,5,6,7,8,9,10,17,10,9,9,8.,7,6 
‚6,6,6,7 

1388 data9, 180,11,12,13,12,11,10,9, 
8:,9.,6,5 5,9); 6, 7,859,10,9,9,10,9,8, 
2.652547, 2 

1398 data8,9,180,11,12,11,10,9,8,7, 
6,5,4,4,4,5,6,7,8,9,9,10511,10,9,8 
977 

1400 data8,8,9,10,11,10,9,8,7,6,5, 
4,9359,4,8,657,8,9, 10, 11,12,171, 10,9 
877757 

‘1418 data8,8,8,9,10,9,8,7,6,5,4,3, 
3.,4:,5,6,7,8,9, 10, 11,12, 13, 12,71, 

9,8,7,7 

1428 colore,2:fora=nto24:chare,33, 


‚10,9,8,7,6,5, 
12,11,10,9,8,7,6 


‚<ng> 


<ed> 


<13j> 


<oi> 


<ma> 


<am> 


<oc> 


<pg> 


<df> 


<o0> 


<in> 


<dc> 


<kj? 


<aa> 


<pf> 


<pl> 


<oi> 


<ih> 


<ld> 
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a,rf$+"L"+b4$+"L":next 

14380 chare, 33; I RRBUNENE chare,33, 
24, "ZUMNMZ" 

1440 colore,6,4:fora= 181023: chare, 
e,8 ‚rn$+bl$trf$: next 

1450 chare,2,19,b2$+"1/r"+b2$+"o/u 
"+53$+"fg"+b3$+"ta ":chare,2,28,1le 
ft$(b1$,21) 

1468 colore,6,5:chare,2,n, 
efghijklmno" 


"asbced 


"1498 b=e:chare,n,2,"":fora=3to1Sst 


ep2:poke285,a:printusing"#";b:b=b+ 
e:next 

1488 colore,6,4:chare,2,22,b2$+"1f 
:"+53$+b3$+"per:"+b3$+b3$:gosub540 
:gosub558 

1498 gosub 1568 

1588 p3=hz:p4=vz 

1518 colore,6,4:chare, 24,19," 
":chare,24,20,b4$+b$:colore,2 
1528 b=int(p3/2+.5).+64 

1530 chare,25,20,"":print;chr$(b); 
int(p4/2+.5):return 

1548 fora=etoru:gosub 1568 

1550 k%Chz,vz)=14:colore,3,3:chare 
‚hz,vz,rn$+" "+rf$:next:return 
1568 hz=int(rnd(e) #27) +2:vz=int(rn 
d(e) #12) +2 

1570 ifk%Chz,vz)=14ork%(hz-1,vz)=1 
4thengoto156® 


m/p 


: 1588 return 
1598 restore1698:fora=832t0849:rea 


db:pokea,b:next 

1608 sys832:c=14847 

1618 reada:ifa=-Ithengoto1648 

1628 c=c+t1:pokec,a 

1638 goto1618 

1648 d=65288:poked+18,peek(d+1B)an 
d251 

465@ poked+19,peek( d+19) and3or56 
1668 return 

1670 data162,8,189,0,208,157,0,56, 
189,0,209,157,0,57,202,208,241,96 
1688 data15,96, 176,176, 184,185,255 
;191 

1690 data255,3,15,63,112,230,230,2 
47 

1700 data255,2, 128, 224,16,8,38,35 
1718 data192,0,0,80,0,0,0, 192 

17208 data191.126,121,59,59,11,1,0 
17308 data255,8,255,255,254,254,255 
‚31 

1748 data255,08,254,63,31,31,63,255 
17508 data248,254,31,239,231,230,23 
2,08 


1760 data1,1,3,3,3,9,7,7 


<km> 
<nn? 


<eo> 


<ne> 


<ph> 
<dd> 


<1f> 
<lo> 
<dn> 


<om> 
<fl> 


<cd> 
<fn> 


<nc> 
<fk> 


<fo> 
<pc> 


<pe> 
<ap> 
<id> 
<bc> 
<aj?> 


<pe> 
<co> 
<jd> 


<nl> 
<ng?> 
<dh> 
<kf> 
<gm> 


<fk> 


<ad> 
<hp> 


<mj> 


m 3) 


« 


HTERE-EIPFTER 


1770 data128,128,192,192,192,224,2 


24,224 <mc> 
1788 data?7,7,7,15,31,29,24,16 <ee> 
1798 data224,224,224,240,248,1854,2 

4,8 <ej> 
1800 data24,24,24,26,24,24,24,24 <op> 
1818 dataß,8,0,255,255,0,0,8 <fd> 


1820 data136,170,34,0,"136,170,34,0 <ef> 


1830 data2,50,50,58,2,124,184,184 <ip> 
1840 data184,128,184,76,68,72,76,1 

92 <ad> 
1850 data128,152,152,152,128,124,5 

8,58 <oö> 
18608 data58,2,56,36,68,36, 100,2 <chb> 
1878 data-1 <ea> 
1888 rem nachspann =========== <id> 
1898 rem farbcodes/steuercodes <ha> 
1988 c4$=chr$( 817) :rn$=chr$( 918) <po> 
1918 c3$=chr$( 829) :f1$=chr$( 130) <jc> 
1928 Fo$=chr$( 132) :rf$=chr$( 146) <ae> 
1930 b$=" ":b2$=b$+b$:53$=b2$+b$:b 

4$=b3$+b$ <po> 
1948 b1$=b4$+54$:b1$=b1$+b1$+b1$+b 

4$+b2$ <gp? 
1950 rem * zeichensatz/graphik <dg> 
1968 zv$=chr$( 192) <jp> 
1978 return <ab> 
1980 rem =============== === >= <no> 
1998 rem 12277 bytes memory <kb> 
2088 rem 087655 bytes program <ac> 
2BiD rem 02048 bytes zeichen <ig> 
2028 rem 808273 bytes variables <ho> 
2838 rem BIBBi bytes arrays <pi> 
2B40 rem 808399 bytes strings <jp> 
2058 rem 88898 bytes fre(ß) <ai> 
2060 rem ===================== <nf> 


oder bis keine Löschflüssigkeit mehr vorhanden ist 
(Zeile 300). Der Löschvorgang wird in diesen Fällen 
beendet, indem ab Zeile 330 die vorhergehende 
Seitendarstellung erzeugt wird. Danach erfolgt der 
Rücksprung. Bei der Landung wird zunächst geprüft, 
ob sich der Copter bewegt (L/R oder O/U über 0) und 
ggf. zur Endroutine verzweigt (GOTO 980 in Zeile 
870). Die Zeilen 890 und 900 überprüfen die Position 
des Copters darauf, ob ein Landeplatz angeflogen 
wurde. Gggf. würde dann die Zeile 920 überprüfen, ob 
die vermißte Person gerettet wurde. Falls dies auch 
zutrifft, wird durch GOTO 950 die nächste Runde 
eingeleitet. ” 

Andernfalls, wie auch bei den Landungen außer- 
halb der Landeplätze, erfolgt in Zeile 940 der Neu- 
start (GOTO 580). 

Sollte sich der Copter auf der exakten Position 
‚der vermißten Person befinden, wird die Rettung 
in Zeile 930 dargestellt. 


POISON 


Aufgabe des Spielers ist es, sich vor der Vergiftung 
durch ein Gas, das sich in einer Flasche, die sich in 
der Mitte des Bildschirmes befindet, zu retten. 

Diese Flasche ist von einer Mauer umgeben. Ein Ball 
schlägt laufend Steine aus der Mauer. Wenn der Ball 
die Flasche zerschlägt, breitet sich das Gas aus und 
der Spieler stirbt. Damit das nicht geschieht, kann 
der Spieler, der seinen Schläger um die Mauer bewegt, 
den Ball zurückschlagen, ohne daß ein Stein aus der 
Mauer entfernt wird. Nach einer gewissen Zeitspanne 
erreicht der Spieler das nächste Level, bei dem sich 
die Zeitspanne erhöht und somit das Spiel schwieri- 
ger wird. 

Steuerung: A = Unten; Q = Oben; O = Links; 

P = Rechts 

Die Tastaturabfrage in den Zeilen 70-100 kann je- 
doch auch leicht für den Gebrauch eines Joysticks 
abgeändert werden. 

Das Spiel verfügt über eine hohe Geschwindigkeit so- 
wie etliche beeindruckende Grafik und Soundeffekte. 
Auch die Spielidee ist ungewöhnlich: Während bei 
zahlreichen Breakout-Varianten Steine aus einer 
Mauer zu entfernen sind, sollen bei Poison möglichst 
alle Steine erhalten bleiben. 


POISON - 1iI — 
18 rem poison =================016 <ib> 
28 rem (p) commodore welt team <ho> 
30 rem ================2=========== ong> 
48 rem (c) by r.dillinger <db> 
58 rem neusaess <oe> 
68 rem <ah> 
78 rem basic v3.5 <nl> 
88 rem c16/116/plus4 <ki> 


188 poke55,8:poke56,59:clr <ci> 
118 gosub 2698 <jl> 
128 g0t0o1878 <jg> 
1308 ji=joyl 1):rem geti$ <pi> 
148 ifj1=5thenifn=2theny=y+1:goto2 

48 <ek> 
158 ifj1=?thenifn=Ithenx=x-1:g0to2 

40 <nn> 
168 ifj1=3thenifn=1thenx=x+1 <li> 


80 


PO TSORN 


390 
460 
470 
:pri 


ifj1=1thenifn=2theny=y-1 
goto240 

geti$f:rem tastatur 
ifi$="a"thenifn=2theny=y+1 
ifi$="o"thenifn=1ithenx=x-1 
ifi$="p"thenifn=1thenxy=x+1 
ifi$="g"thenifn=2theny=y-1 
ifn=dthenstop 
onngoto262, 3208 
ifx>26thengoto652 
ifx<1i2thengoto68® 
char!,x,y,wh$+"FF" 

chart, #2," 
char1,x-1,y," 
g0t0378 
ify<7thengoto?71® 
ify>17thengoto748 
char!l,x,y,wh$+"G":chari,x,y+1, 


charl ,%,y=1,”" 
chari,x,y+2," 
k=o:1l=p:0o=0+01:p=pt+p1 

ifpeek( 3072+40*o+p) <>32thengot 


" 


char!,p,o,"D" 
char!,1,k," ":goto138 
ifo=24theno=23:01=-1:sound1,68 


ifo=2theno=3:01=1:sound1,609,5 
ifp=39thenp=38:p1=-1:sound1,68 


ifp=dthenp=1:p1=1:sound1,608,5 
ifo=23oro=3orp=380rp=1thengoto 


ze=a-peek( 164) 
color1,2,?:char1,21,1,str$(ze) 
ntb3$; 


480 we=peek( 3872+40*o+p) :ifwe=8ßor 


we=8lorwe=82orwe=B3orze<=dthengoto 


770 
498 
580 
518 
520 
5308 
1=-7 
5408 


zig 


558 ifpeek( 3072+40*o+p+1)<>32theno 


1=-1 
568 


ifo1=1thenifp1=1thengot0530 
ifo1=1thenifpi=-ithengoto55® 
ifo1=-1thenifp1=1thengoto578 
ifo1=-1thenifp1=-1thengoto0598 


ifpeek( 3072+49*o+p-1) <>32theno 


:sound1,488,8:g0t039® 
ifpeek( 3072+40*0+p-1)=32thenp! 
sound1,488,8:g0t0398 


:sound1,480,8:g0t0390 
ifpeek( 3072+48*o+p-1)=32thenp! 


=1:sound1,488,8:g0t039® 


5708 
1=1: 
588 
=-1: 
598 
1=1: 


ifpeek( 3072+48*o+p-1)<>32theno 


sound1,488,8:g0t0398 


ifpeek( 3892+48*o+p-1)=32thenp! 


sound1,488,8:g0t0398 


ifpeek( 3092+40*o+p+1)<>32theno 


sound1,4800,8:g0t0398 


600 ifpeek( 3072+40*0o+p-1)=32thenp! 
=1:sound1,488,8:g0t0398 

618 sound1,488,8:g0t0398 

620 rem =------------- green 
630 rem spielfigur aendern 

64B rem ---------=- = ----- nm 
650 n=2:x=28:ify=19theny=17:char1, 
26,19,b2$ 

668 ify=-ötheny=7:char1,26,6,b2$ 
678 g0t0328 

680 n=2:x=11:ify=19theny=17:chari, 
12,19,62$ 

698 ify=6theny=7:char1,12,6,b2$ 
708 g0oto328 

718 n=1:y=6:ifx=11thenx=12:char1,1 
1597," "chart, 11," 

728 ifx=2Bthenx=26:char1,28,7," " 
eharl,28,8, * 

730 g0to26® \ 

7480 n=1:y=19:ifx=11thenx=12:char1, 
11,19; "char ;115. TB, 

758 ifx=28thenx=26:char1,28,17," " 
schari, 20,18," —  ® 

768 goto260 

798 rem -------------------------- 
788 rem abbruch 

798 rem ----------------- 
808 ifze<=Bthengoto999 

810 rem ---------------- = - -- ----- 
828 rem gift getroffen 

838 rem --=-7=- 2-72 
840 color1,2,7 

858 char1,19,12,F1$+"HH" 

868 char1,19,13,f1$+"HH" 

878 char1,18,12,b4$:char1,18,15,b4 


$ 
880 char1,18,13," ":char1,18,14," 
898 char1,2%,13," ":char1,21,14," 


908 forf=1t068 

918 g=int(rnd( 8) *21+3) :h=sint(rnd(® 
)*38+1) 

928 char!,h,g,fl$+"H" 

938 sound1,18,1:sound2, 109,2:sound 
2,2%*g,5:soundi,f,2:sound1,h,6 

948 nextf 

958 color1,2,7:char1,10,13,rn$+f1$ 
+"died in the " - 

968 printa/18;c1$". level" 

978 char1,13,24,"taste druecken":p 
oke239,0 

9880 getkeya$:run 

998. rem -------- 7772-7 
1808 rem next level 

1030 rem 
1028 scnclr 

10838 fForg=1t0o15step2 


<ik> 
<nj> 
<cn> 
sfg> 
<hh> 


<no> 
<nb> 
<]h> 


<og> 
<aj? 
<jb> 


<pc> 


<bm> 
<hh> 


<oo> 


<oh> 
<fr> 
<ob> 
<dj> 
<To> 
<ea> 
<jl> 
<ap> 
<kp> 
<gm> 
<kb> 
<cf> 


<ma> 
<na> 


<gk> 
<lm> 


<jg> 
<ol> 


<ok> 
<aj?> 


<io> 
<jh> 


<mg> 
<co> 
<na> 
<ch> 
<ga> 
<oh> 
<of> 


FOTIESON 


1840 color1,g,3 

1858 chari,g,g,rn$+b5$+b5$+b3$+rf$ 
1868 chari,g,g+1,rn$+" "+rf$+" "+b 
5$+b5$+rn$+" "+rf$ 

10870 char!,g,g+2,rn$+" "+rf$+" wel 
l done "+rn$+" "+rf$ 

1088 char!,g,g+3,rn$+" "+rf$+" "+b 
5$+55$+rn$+" "+rf$ 


1898 char!,g,g+4,rn$+b5$+b5$+b3$+r 
f$ 

1100 sound1,g*10,5 

1118 sound2,709+28*g,18 

1128 next 

1138 f=d:forg=-16to2step-2 

1148 color1i,g,4 

1150 char!,g,f,rn$+b5$+b5$+b5$+b2$ 
+rf$ 

1160 char!,g,f+1,rn$+" "+rf$+b5S$rb 


5$+b5$+rn$+" "+rf$ 

1178 chart,g,f+2,rn$+" "+rf$+" get 
ready for "+rn$+" "+rf$ 

1180 chari,g,f+3,rn$+" "+rf$+b5$+b 

5$+b5$+rn$+" "+rf$ 

1198 chari,g,f+4,rn$+" "+rf$+b2$+" 

next levei"+b2$+rn$+" "+rf$ 

1280 chari,g,f+5,rn$+" "+rf$+b5S$+b 

5$+b5$+rn$+" "+rf$ 

1218 char!,g,f+6,rn$+b5$+b5$+b5$+b 

2$+rf$ 

1228 sound3,g*10+708,18 

"41230 fef+l 

1240 nexta 

1258 forf=629t01080step5 

1260 sound3,f,3 

1278 nextf 

1280 forf=1t03028 

1298 color®,2,7 

1308 colorß,1 

1310 nextf 

1320 g0ot0o1338 

1338 rem 
1348 rem 
1350 rem 
1360 scnclr 

1370 g0t0167% 

1380 p( 1)=14:p(2)=3:pl 31 =4: 

p{(5)=6:p(6)=7 

1390 y=6:x=19 

1488 n=1 

1418 01=1:p1=1 

1420 o=int(rnd(d) *4+3) 

1430 p=int{rnd(d}*37+1) 
1440 z=® 

1450 forg=2to3 

1468 forf=12+zt027-z 

1498 color1,p(z+1),3 

1480 chari,f,?+z,"E" 

1490 char1,f,18-2,"E" 


<po> 
<gf> 


<da> 
<dce> 
<ih> 


<ic> 
<pi> 
<fl> 
<ek> 
<ah> 
<be> 


<ke> 
<pm> 
<dh> 
<bk> 
<nb> 
<hl> 


<fa> 
<ki> 
<oj? 
<ın> 
<bi> 
<la> 
<de> 
<be> 
<f]> 
<bc> 
<enh> 
eg? 
<zm!> 
<20> 
<ig> 
<jc> 
<hf> 


<bg> 
<ıif> 
<]f> 
<ag> 
<gk> 
<hh> 
<cl> 
<fb> 
<ge> 
<ad> 
<io> 
<kc> 


82 


1508 
1510 


nextf 

2=24 

1528 nextg 

1530 z=® 

1548 forg=dto3 

1550 forf=8+zto1B-z 

1568 colori,p(z+1),3 

1578 char1.,12+z,f,"E" 

1580 char1,27-z,f,"E" 

15980 nextf 

1600 z=z+] 

1618 nextg 

1628 g0t01728 

1630 color1,8,7:forf=1to038 

1648 char!,f,2,"T":chari,f,24,"T" 
1650 nextf 

1660 g0t01388 

1678 color1,8,7 

1680 forf=3t023 

1698 char1,2,f,"W":char1,39,f,"W" 
1708 nextf 

1710 g0t01638 

1728 color!,8,7 

1738 char1,0,2,"xX" 

1740 pok22191,89:poke2167,119 
1750 char1,0,24,ym$ 

1760 poke4B71,980 

1778 color1,18,5 

1780 char1,19,12,f1$+"P@"+fo$ 
1790 char1,19,13,F1$+"AS"+F0$ 
1888 color1,14,5 

1810 char1,0,0,62$+"poison"+bS$+"( 
c) 1986 by dillingersoft" 

1828 color1,2,7 

1830 char1,16,1,"time:" 

1840 a=a+i® 

18590 poke164,9 

1860 goto13® 

18590 rem 
1860 rem 
1898 rem 
1908 x=d:y=-9:0=9:p=B:01=B:01=0:n=2 
:i$="":a=0:f=0Q 

19128 poke65298, peekf 65298) and251 
"928 poke65299,68 

1930 restore2378 

1948 forf=15104t015133 

1950 readby:pokef,by 

1960 next 

1978 sys151984 

1988 restore29298 

1998 forf=15350+68*8t015360+723*8-1 
2088 readby:pokef,by 

2B12 nextf 

2028 forf=153690+79*8t0153690+85*8-1 
28380 readby:pokef,by 

2848 nextf j 

2058 forf=15360+37%*8t015360+93*8-1 


POISON 


260 readby:pokef,by 

2270 nextf 

2838 g0t02430 

2898 rem ------------------------- 


2118 rem ---------------- ---- 
2120 data24, 126, 126,255,255,126,12 


2130 data®, 126, 126, 126,126, 126,126 


2140 data®,0,255,255,255,255,8,0 
2150 data60,60,60,60,60,60,60,60 
2168 data129,16,4,64,16,130,8,64 
2170 data60,126,219,255,126,36,6%. 


DEN LEN See 
2218 data3,3,1,7,31,28,24,19 
2220 data192,192,128,224,248,56,24 


2230 data16,24,29,28,22,16,23,31 
2240 data8,24,184,56,104,8,232,248 
2258 rem ++ anne 


22908 rem ----------------- -------- 
2280 data®,24,165,66,66, 165,24, 
2299 data36,24,36,66,66,26,24,36 
2308 rem ---------------------- --- 


232 ren a 
2330 data®,24,37,66,66,37,24,36 
2340 data®,24,164,65,66, 164,24, 36 
2350 data36,24,164,66,66,164,24,0 
2360 data36,24,37,66,66,37,24,0 
2370. ven een en een 
2380 rem 
2399 DEN ee een 
2400 data162,0,189,0,208,157,0,68, 
189,0,209,157,8 

2410 data61,189,0,210,157,0,62,189 
„0,211, 152,0,68 

2428 data232,208,229,96 

ErSU Dem 
2448 rem 
2450: Ben Fuer 
2460 volß8 

2470 a=8:p1=2:color4,1:colorß,1:cc 
lar1 „8,8 

2488 scnclr 

2498 printhe$;tab( 13) ;"dillingerso 
ft":print 

2508 printtab( 15) ;"presents":poke2 
39,8 

2518 char1,13,24,rn$+wh$+"taste dr 
vecken"+rf$ 

2528 color1,p!,int(rnd(8}*8) :char! 
RE, By" 


<ja> 
<md> 
<je> 
<an> 
<kj> 
<kb> 


<cf> 


<cä> 
<ni> 


"<ck> 


<bj> 


<nj? 
<if> 
<an> 
<mo> 
<ba> 


<ah> 
<e.j?> 
<ka> 
<ib> 
<pi> 
<pc> 
<mö> 
<ak> 
<oc> 
<cij? 
<]la> 
<mk> 
<ak> 
<kk> 
<gj? 
<ig> 


<od> 


<kl> 
<hg> 
<ig> 
<dc> 
<bg> 
<oa> 
<nj> 


<je> 


<xof> 
SE.L> 


<ob> 
<ej? 
<ma> 


<bk> 


2538 print 

2548 print:printtab( 9) ;"000 000 0 

000 006 00 0" 

2550 printtab(9) ,;"0"s2$"0"s2$"0"s2 

K"O"S2H"O"S2FH"O"S2HS2F52F"0"sS2$"N" 

s2$"00 0" 

2568 printtab( 9) ;"000"s2$"0"s2g"0" 

s2$"0"s2$"000"s2$"0"s2$"0"s2$"00"s 

2$5"0" 

25978 printtab( 9) ;"0"s2$s2$52$"0"s2 

g"0"s2$"0"s2$52$52$8"0"s2$"0"s2$"0" 

s2$"0"s2$"00" 

2588 printtab( 9) ,"0"s2$s2$52$"000" 

s2$"0"s2$"000"s2$"000"s2$"0"s2$"00 

2598 color1,p1,5 

2688 chari,1,15,b2$+"{c) copyright 
1986 by dillingersoft" 

2618 print: print:printb3$+b3$+"wr 

itten by robert dillinger" 

2628 p1=p1+1:ifp1=17thenp1=2 

2638 soundi,int(irnd(B)*1000) ,3 

2648 sound2,int(rnd{B)*12), 18 

2650 geta$:ifaf<>""thengoto1330 

2662 g0t02528 

2670 rem nachspann =============== 


2680 rem * farbcodes/steuercodes * 


2690 b$=" ":b2$=b$+b$:b3$=b2$+b$ 
2708 b4$=b3$+b$:65$=b4$+b$ 

2718 wh$=chr$( 885) :rn$=chr$( 818) 
2720 he$=chr$( 819) :fl$=chr$( 138) 
2730 Fo$=chr$( 132) :rf$=chr$( 146) 
2748 ci$=chr$( 157) 

2758 rem *#*= zeichensatz/graphik * 
2760 s2$=chr$( 160) :ym$=chr$( 219) 
27978 return 

2780 rem ===============202=02==000== 
2798 rem 122977 bytes memory 

2880 rem 07089 bytes program 

2818 rem 80219 bytes variables 
2828 rem 00062 bytes arrays 

2838 rem 81824 bytes zeichensatz 
2848 rem 088256 bytes maschinencode 
2858 rem QOB36® bytes strings 

2868 rem 03249 bytes free (PB) 

2890 rem ============= === 2552222 


COMMODORE-WELT 
GIBT ES AM GUTEN 
KIOSK ODER IM 


BAHNHOFS-BUCHHANDEL 


BVC-KIOSK 


<ik> 


<ch> 


<mh> 


« 


LISTING 


HORSE 


Ein Superspiel für den 16er mit verändertem Zeichen- 
satz, Riesengrafik und superschnellem Spielablauf. 
Vielleicht kennen Sie den Film “Tron“. In diesem 
muß der Held mit einem Futur-Motorrad gegen einen 
Computer-Gegner antreten. Diesem Spiel ist Horse 
nachempfunden. Es gilt, Ihren Gegner in die Falle zu 
locken und selbst den Hindernissen auszuweichen, 
die dieser stellt und die auch schon auf dem Bild- 
schirm vorhanden sind. Horse kann alleine oder zu 
zweit ar werden. Spielen Sie zu zweit, wird ein 
J Ay enötigt, bei Einzelspielen ist der Computer 
Ihr Gegner. 
Nach dem Programmstart erscheint das Titelbild. 
Durch Drücken von >SPACE< kommen Sie nun in 
die Abfrage, ob einer oder zwei mitspielen. Spieler 
eins steuert sein Pferd mit den Cursortasten, Spieler 
zwei (falls zu zweit gespielt wird) über den Joystick 
in Port 1. Wird nur ein Spieler ausgewählt, ersetzt 
der Computer den zweiten Spieler und Sie treten ge- 
gen ihn an. Spieler eins hat das schwarze Pferd, wel- 
ches auf der linken Seite startet, Spieler zwei (oder 
der Computer) besitzt das weiße Pferd, welches von 
rechts kommt. Zu Spielbeginn starten die beiden 
Pferde. Auf dem Bildschirm werden Sie folgendes er- 
kennen: - 
1. Die beiden Pferde hinterlassen eine Spur in der je- 
weiligen Farbe. 
2. Auf dem Spielfeld liegen einige Hindernisse her- 
um. Diese dürfen Sie auf keinen Fall berühren. 
Nun müssen Sie versuchen, durch geschicktes Steu- 
ern Ihre Spur so zu legen, daß der Gegner auf Ihre 
Spur aufprallt oder ausweichen muß und sich in sei- 
ner eigenen Spur verheddert. 
Horse wird Ihnen mit Sicherheit noch viel Freude und 
Spannung bereiten! 


HORSE 18 : 


18 rem horse ==================016 <og> 
28 rem (p}) commodore welt <op> 
38 rem ==>==========5== 55 eco? 
48 rem (c) by h. muehlbacher <le> 
58 rem waging <bo> 
68 rem <ah> 
78 rem basic v3.5 <n1> 
88 rem c16/116/plus4 <ki> 
90 rem ========================2== <jg> 
180 poke55,255:poke56,47:clr <pe> 
110 gosub1598:scncelr <ik> 
120 vol 3 <mp> 
138 colorß,1:color4,i <ok> 
140 poke 65298, peek( 65298) and251 <cp> 
158 poke 65299, peek( 65299) and30or48 <hc> 
168 for i = 8 to 19 read a <cl> 
170 poke819+i,a:next:sys819 <eo? 
188 for za=12888 to 13148 step 8 <nl> 
19@ for i=®to?:read a <mk> 
200 if a=999 then 428 <pf> 
210 poke zati,a:nexti :nextza <dh> 
228 data162,0,189,0,208,157,0,48,1 

89,0,209,157,0,49,202,208,241,96 <op> 
230 data 48,16,18B,255,253,212,34, 

65 <ik> 


84 


240 data d, 2, ®, 
Do, 34 
250 data 238,68,255,68,255,68,255, 


128, 255, 220, 2 


68 

260 data 36, 169,90,60,189,254,60,6 
® 

270 data 16, 88, 82, 52, 24, 146, 
84, 56 

280 data 108, 146, 16, 108, 146, 4 
0, 84, 16 

298 data 102, 255, 219, 219, 24, 2 


4, 24, 24 

300 data 60, 68, 
8, 68 

310 data 127, 
99, 127 
328 data 
338 data 
348 data 
350 data 
360 data 
378 data 
388 data 
398 data 
400 data 
410 data 
99,999 
428 for f=2 to 14 


24, 24, 24, 24, 6 


99, 96, 120, 120, 96 
96,48,56,60,54,51,96, 192 
6,12,28,60,108,204,6,3 
0,0,0,0,66,66, 102,153 
24,36,36,24,24,36,66, 129 
16,0,0,16,16,40,68, 131 
0,0,24,20,34,34,66, 132 
0,0,0,0,25,38,36,24 
24,36,36,32,112,32,32,32 
16,16,56,16,16,16,40,68 
999,999,999,999,999,999,9 


430 rem restore 258 

440 for h=?7 to ® step -1 

458 colori,f,h 

468 printhe$left$(gd$,4)left$(gqr$, 


4) "C"BI3H"C"bBIFK"COC"bAH"COC"bAH"CCEC 
E"bIH"CCEE" 

478 printleft$(qgr$,4) "C"b3g"C"bag" 
C"bIK"C"bag"C"bI3H"C"b2H"C"bEH"C"bA 
$ 

488 printleft$(lgr$,4) "C"b3$"C"bag" 
C"b3H"C"bag"C"b3$"C"bayg"C"b6$"C"b4 
$ 

498 printleft$(qr$,4)" CEC"bI$"C"b 
3H"C"BIF"CCC"BAH"CCE"bHAS"CC"b2$ 
500 printleft$(gr$,4) "O"bag"C"bag" 
E"BIK"C"b2H"C C"bEH"C"bag"C"b4$ 
510 printleft$(gqr$,4) "C"b3H"C"bag" 
C"b3H"C"b2$"C"b2$"C"b7$"C"b2$"C"bA 
$ 

528 printleft$(gqr$,4)"C"b3$"C"b3$" 
CCC"BIH"C"BIH"C"bB2H"CECE"bA$"CCCcc" 
530 printc4$04$c4$left$(qr$,8)"A A 
‚AAAAAAAAARrA" 

548 printc4$left$(qr$,8) "A"b7$"JKL 
MNOPQR"b7K"A" 

55@ printc4$left$(gqr$,8)"AAAAA 


AAAAARARAr" 
560 geta$ 
578 ifa$=" " then 6099 


588 nexth:nextf 


<hg> 
<jl> 
<co> 
<dj> 
<3cC> 
<hg> 
<bb> 
<lh> 
<og> 
<pp> 
<ic> 
<1h> 
<fl> 
<cdk> 
<lh> 
<fm> 
<ik> 
<fh> 
<mj?> 
<ok> 


<nc> 
<ol> 


<oc> 


<bf> 


<oe> 
2112 


<cd> 


<nn? 
<bl> 
<be> 
<ic> 
<ip> 
<lk> 


<mk> 
<fd> 


HORSE C—-16 


goto42B 


spieler???"; :inputsa 

SıB if sa<! or sa>2 then 6BB 

>28 az=d:scnelr 

S23Q0 poke65286,peek( 65286) and 239 
>42 for z=3072 to 3111:gcosub 698:n 
extz 

558 for z=4832 to 4091:gosub 698: 
extz 

s62 for z=3892 to 4832 step 48 go 
sub 698:next z 

578 for z=3111 to 4071 step 48 :go 
sub 69 B:next z 

532 g0to78B. 

598 poke z,69:poke (z-1824) ,41:ret 
urn 

780 az=az+i 

718 ifaz< d then ba=68:fa=193:g0to 
758 

728 ifaz> 3andaz<7 than ba=69:fa=2 
! :g0t0759 

738 ifaz>6 andaz<1dthen ba=7d:fa=i 
11:g0t0750 

748 ifaz>9 then 798 

758 ps=int({rnd( 1) #788) +3371 

768 if peek(ps)<>32 then 758 

778 poke ps,ba:poke(ps-10824) ‚fa 
780 goto?782 

790 r=3195:0=3229 :31=1:382==1:pp=d 
802 poke2151,8:poke2283,97 

818 goto 1888 

320 geta$ 

830 ifa$=c3$ then al=1:90t09408 

848 ifa$=c4$ then a1=48:90t0948 
858 ifa$=c1$ then al=-1:g0t0948 
868 ifa$ß=c2$ then 31=-40:g0t0948 
878 goto94B 

888 if sa=1 then 1248 

898 if joyl1)=3 then a2=1:g0t0988 
908 if joyl1)=5 then a2=48:90t0988 
912 if joyli)=?7 then a2=-1:g90t09859 
928 if joy[ 1)=1 then ag=-498:g0t098 
{% 

938 goto982 

948 r=r+ai 

958 if peek(r)<>32 then 1058 

968 


poke(r-a1),67:poker,65:poke(r- 
1024) ,0 - 

978 goto 888 

980 c=c+ta2 

998 if peek(c)<>32 then 1828 

100808 pokelc-a2) ‚,67:pokec,65:poke(c 
-1824) ,97 

1810 goto 828 

1828 rp=rpt+1 


1830 if rp>6 then 1138 


<ko> 


1848 
1858 
1868 


goto 1368 
cp=cp+1 

if cp>6 then 
1078 goto 1360 \ 
10808 printhe$bk$rn$c3$c3$c3$" spie 
ier I "rp:eig ” 


1140 


1296 printc2$rn$left$(qr$,22)" spi 
srer IE "Spree 

1188 color®,16,4:color4,16,4 

1118 sound!1,888,28:sound?2, 888,28 
1120 poke65286, peek{(65286)or 16:80 
to828 

1138 printhe$bk$rn$c3$c3$c3$" spie 
ier i hat gewonnen!!!!!!!!!!!!":go 
toi 158 

1140 printhe$bk$rn$co3$c3$c3$" spie 
ler ii hat gewonnen!!!!!!!!!!!"rgo 
to1358 

1158 get 8$ 


1168 if a$="j" then run 

1178 if s3$="n" then 1598 

1188 printhe$ye$rn$left$(gd$, Id) le 
ft$(qr$,?)left$(01$,27) 

1198 printrn$left${gr$,?7)" "whölef 
t$(b1$,25)ye$" " 

1288 printrn$left$(uar$,7)" "wh$" n 
eues spiel "Fl$"j"foß"a / "Fi$"n"f 
o$"ein ? "ye$" " 

1218 printrn$left$(ar$,?)" "wh$lef 
t${b1$,25)ye$" " 

1228 printrn$left$(lqr$,?)left$(bil$ 
e7) 
1238 
1248 
1258 
1268 


g0t01158 

goto 1320 

pp=ppt+1 

if pp>18d then 1928 

1278 cgq=-int(rnd( 1)*4) +1 

1280 if cq = 1 then a2=-48 

1298 if cq = 2 then a2=1 

1388 if cq = 3 then ad=-1 

1318 if cq = 4 then a2=48 

1328 if peernl(c+ta2))<>32 then 12508 
1330 pp=® 

1340 goto 988 

1358 rem 

1360 printhe$bk$rn$c3$c3$c3$" spie 
ver I; "TB" ” 

1378 printc2$rn$left$(gqr$,22)" spi 
eler ii "cpz;ci$" « 

1380 printleft$(gd$, 18) c3$c3$c3$rn 
$re$b5$c3$c3$b5$c3$c3$b5$; 

1398 printc3$c3$b5$c3$c3$" "c3$c3$ 
sg" " 

14088 printc3$c3$c3$rn$" "left$lar$ 
‚6)” "e3$e3$c3$" "c3$c3$" "e3HcI$c 
Sg" "; 

1418 printc3$c3$" "left$(gqr$,6)" " 
ce3$c3$c3$" " 


<cc> 


<nn?> 
<eb> 
<fa> 
<bf> 


<ic> 


<bj?> 


<en> 
<fe> 


<hl> 
<ml> 
<a0> 
<mc> 
<na> 
<im> 
<ha> 
<nd> 
<dm> 
<dm> 
<hm> 
<mk> 
<nn> 
<cf> 


<ec> 
<mc?>? 
<eb> 


<hn> 


<pm> 


<ik> 2» 


85 


« 


HORSE —-16 


1420 printc3$c3$c3$rn$" "left$(qgr$ 

‚6)" "c3$c3$c3$”" "cI3$c3$" "cIFc3$c 

28"; 

1438 printc3$c3$" "left$(qr$,6)" " 

ce3$c3Fc3H" " 

1448 printc3$c3$c3$rn$" "left$lar$ 

‚6)b5$03$c3$b65$c3$c3$" "left$(gr$, 

6)b5$ ; 

1458 printc3$c3$c3$rn$" "left$(qr$ 

‚6)" "c3$c3$" "c3$c3$c3$" "c3$c3$c 

38" 

1460 printc3$ce3$" "left$(lqr$,6)" " 

e3$ce3$c3$" " 

1478 printc3$c3$c3$rn$" "left$(gr$ 

6)  "o3$c3$c3$" "c3F$c23$" "c3$c3$c 

a8. *; 

1488 printc3$c3$" "left$(qgr$,6)" " 

c3$c3$c3H" " 

1498 printc3$c3$c3$rn$re$b5$c3$c3$ 

"103803538" "cI3Hc3$" "c3$e35c3E" 
’ 

1588 printc3$c3$b5$c3$c3$" "c3$c3$ 

E39" " 

1518 sound3,888, 198 


1528 
1538 
1548 
1558 
1568 
620 
1578 color@,1:color4,!: 
‚19828 

1588 printcl$left$(gd$, 12) left$(gr 
$,15)g1$"JKLMNOPQR"bK$:goto 1578 
15982 rem nachspann 
1608 rem * farbcodes/steuercodes* 
1618 wh$=chr$( 805) :c4$=chr$( 017) 
1620 rn$=chr$( 8018) :he$=chr$( 819) 
1638 re$=chr$( 828) :c3$=chr$( 829) 
1640 fF1$=chr${ 130) :fo$=chrä$( 132) 
1658 bk$=chr$( 144) :c2$=chr$( 145) 
1660 cl$=chr$( 147) :g1$=chr$( 151) 
1678 c1$=chr$( 157) :ye$=chr$( 158) 


for wz=1 to 512 
getcx$ 

if cx$=" "then 620. 
next 
sound1,211,798: color4,1:goto 


sound3, 12019 


1688 rem ###*#### zeichenfolgen * 
1690 b2$=" "+" ":53$=b2$+" ":b4$=Db 
3$+" ":55$=bA$+" ":66$=b5$+" " 
1700 6b7$=b6$+" ":68$=b7$+" " 

1718 for q=1 to 48 

1728 gd$=gd$+c4$:gr$=qr$+c3$ 

1738 bi$=b1l$+" "next q 

1748 return 

1750 rem ======= = 7 == 5 === === 20m 
1768 rem 12297 bytes memory 

1761 rem 83072 bytes frei 

1765 rem 09285 bytes belegt: 

1167 Dei me 

1778 rem 05298 bytes program 


<dk> 


<1n> 


<gm> 


<fg> 


<el> 


<gi> 


<hi> 


<al> 
<aj? 


<nl> 
<pn> 
<og> 
<mi> 
<kk> 


<hd> 
<dh> 


<aj? 
<bo> 
<bh> 
<aj? 
<ai> 
<af> 
<ge> 
<dg> 
<eon> 
<ma> 
<ni> 


<ki> 
<ge> 
<ji> 
<mi> 
<ig> 
<dd> 
<jp> 
<ll> 
<ga> 
<jn> 
<hf> 
<hk> 


1788 rem 808315 bytes variables <io> 
1798 rem B0002 bytes arrays <jf> 
1800 rem 88526 bytes strings <oo> 
18085 rem 21024 bytes zeichensatz <ji> 
1818 rem 82042 bytes free (B) <ll> 
1828. rem ======>====- 3222 =====3=== 3 C00> 
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HANDELS- 
KALKULATION 


Ein kaufmännisches Programm für: 

— Schüler 

— Lehrer 

— und weitere Interessenten. 

Nach dem Eingeben von RUN und Betätigen der 

BE RENEE startet das Programm mit dem Titel- 
ild. 

Dann werden Sie aufgefordert, ein Programm mit der 

entsprechenden Zahl anzuwählen. 

Ihnen stehen folgende Programme zur Auswahl: 

— Vorwärtskalkulation 

— Rückwärtskalkulation 

— Differenzkalkulation 

— Kalkulationszuschlag 

— Handelsspanne 

— Prozentualer Aufschlag 

— Prozentualer Abschlag 

— Kalkulationszuschlag in DM + % 

— Handelsspanne inDM + % 

Wenn Sie Ihr Programm angewählt haben, befragt Sie 

der Computer nach den einzugebenden Daten. 

Sobald dies geschehen ist, berechnet das Programm 

die auszugebenden Daten und druckt sie am Bild- 

schirm aus. 

Drücken Sie nun eine Taste, erscheint auf dem Bild- 

schirm wieder das Titelbild. 


Folgendes müssen Sie bei den Eingaben beachten: 

— Nach jeder Eingabe muß die RETURN-Taste ge- 
drückt werden 

— Bei Komma-Zahlen nur Punkte verwenden 

— Falls ein Datenwert nicht vorhanden ist, geben Sie 
bitte eine “O“ ein. 


HANDELS 


‘@ rem handelskalkulation =====c16 <kl> 
282 rem (p) commodore welt team <ho> 
30 rem ================2====2=2====== cong> 
280 rem (c) by h.p.katzemich <ih> 
5d rem berg. gladbach 2 <ib> 
50 rem <ah> 
78 rem basic v3.5 <nl> 
80 rem c16/116/plus4/c128 <id> 
IB rem =as==nneuneunennnn===>==nee <jg> 
1808 b$="------ y <gj> 
110 st$=" -"+b$+b$+b$+b$+b$+b$ <gn> 
120 b$="======" <bc> 
130 et$=" ="+b$+b$+b$+b$+b$+b$ <po> 
148 gosub 1558 <fp> 
158 b$=chr$( 32) :b2$=b$+b$ <bn> 
160 b3$=b2$+b$:b4$=b3$+b$ <kb> 
178 b5$=b4$+b$:6$=b5$+b5$ <ee> 
188 print c1l$c4$left$(qr$,4)"vorwa 
ertskalkülatiön..a:::4:::: I <oo> 
198 print c4$left$(qr$,4)"rueckwae 
rtskalkulation......... a" <nb> 
288 print c4$left$(gqr$,4)"differen 
zkalkulatlomansan sa se 3" <pl> 
218 print c4A$left$(lqr$,4)"kalkulat 
ionszuschlag:..assa:::%- a" <cd> 
228 print c4$left$(qr$,4)"handelss 
DANNE.. 2 28 A ee 5" <oc> 
238 print c4$left$(qr$,4)"prozentu 

aler aufschlag......:;.. 6" <om> 
248 print c4$left$(gqr$,4)"prozentu 

ater abscehlagau. 5:55} 7" <ii> 
250 print c4$left$(qr$,4)"kalkulat 
ionsz. in % # dm... -..s, 8" <jl> 
268 print c4$left$(qr$,4)"handelss 
panne in % + dm........ 9" <hi>. 
278 print c4$left$(qr$,4)"ende... 

ER ER rien 10" <dk> 


KALKULATION 


280 print c4$c4$c4$c3$c3$"bitte ge 


ben sie eine nummer ein 


‚:inputnn <ip> 


298 print c1$c4$c4$c4$ <fe> 
382 on nn goto 310,320,3190,900,910 
‚1130,1130,1330,1330, 15408 <fa> 


318 print c3$rn$" listeneinkaufspr 


eis"b4$"dm "rf$c3$; 


:inputl <pe> 


320 print c3$c4$rn$" rabatt (liefe 


rer) "b4$b3$"% "rf$c3$; 


:inputr <dj> 


338 print c3$c4$rn$" skonto (liefe 


rer) "b4$b3$"% "rf$c3$; 


:inputs <em> 


348 print c3$c4A$rn$" bezugskosten 


"b$"dm "rf$c3$; 


358 print c3$c4$rn$" geschaeftsk. 


(hkz) "b3$b3$"% 
368 if nn=3 then 


:inputb <mf> 
"rf$c3$; :inputg <ei> 
388 <jl> 


378 print c3$c4$rn$" gewinn"b$b4$b 


4$"% "rf$c3$; 


:inputa <kp> 


388 print c3$c4$rn$" skonto (kunde 


n) "b5$b4$"% "rf$c3$; :inputc 

398 print c3$c4$rn$" rabatt (kunde 
n)"b5$b4$"% "rf$c3$; :inputd 

488 if nn=1 then 448 

418 print c3$c4$rn$" listenverkauf 
sp."b4$b3$"dm "rf$c3$; :inputx 


428 if nn=2 then 5008 


438 if nn=3 then 578 

440 e=(1*r) /108:f=1-e 

458 h=(f*s) /1808:i=f-h:k=i+b 
468 m=(k*g) /100:n=k+m 

478 o=(n*a) /188:p=n+o:v=108-c 


488 u=(p*1988) /v:t=u-p:z=100-d 
498 x=(u*100) /z:d=x-u:goto 638 
SoB d=(x*d) /100:u=x-d 

518 t=(u*c) /180:p=u-t 

520 j=a+100:n=(p*108) /j:o=p-n 
530 q=g+100:k=(n*182) /q:m=n-k 
548 i=k-b:v=100-s:f=(i*180)/v 
558 h=f-i:w=188-r:1=(f*108) /w 
560 e=1-f:goto 630 

578 e=(1*r) /100:f=1-e 

588 h=(f*s) /100:i=f-h:k=it+b 
598 m=(k*g) /100:n=k+m 


608 d=(x*d) /100:u=x-d 
618 t=(u*c) /180:p=u-t:o=p-n 


- 628 w=( 100*o) /n 
. 630 scnelr 


648 print he$ 


658 print using " AHHHHHHHRHHHHHR. 


##";"listeneinkaufsp.",l 
668 print using " HHHHHHHHHHHHHHR. 
##","rabatt (lieferer)",e 


' 678 printst$ 


688 print using " HAHHRHHHHHHHHBRRE. 
##","zieleinkaufsp.",f 

698 print using " HHHHHHHHRHHHHHE. 
##","skonto (lieferer)",h 

788 printst$ 

718 print using " AHHHHHHHHHHHHHR. 
##","bareinkaufsp.",i 

728 print using " AAHHHHHHHHHHHHR. 
##",;"bezugskosten",b 

738 printst$ 

740 print using " HHAHHHHHHHHHHHH. 
##" ;"bezugspreis",k 

758 if nn=4 or nni=5 then 1890 

768 print using " HHHHHHHHHHHHHHR. 
##";"geschaeftsk. (hkz)",m 

770 printst$ 

780 print using " HHHHHHHHHHHHHHR. 
##","selbstkostenp.",n 

798 print using " AHHHHHHHHHHHHHR. 
A#";"gewinn",o 

808 printst$ 

810 print using " HHHHHHHHHHHHHHH. 


<ce> 


<na> 
<gf> 


<nc> 
<ej> 
<fd> 
<li> 
<bk> 
<mc> 
<ah> 
<hn> 
<ea> 
<bk> 
<lf> 
<pi> 
<he> 
<cd> 
<dg> 
<on> 
<hn> 
<np> 
<mf> 
<ap> 
<gm> 
<gm> 
<ni> 
<me> 


<gd> 


<ke> 
<om> 


<co> 


<gc> 
<mi> 


<cg> 


<kg> 
<kk> 


<oi> 
<en> 


<fn> 
<dh> 


<cg> 


<hi> 
<be> 


« 


HANDELSKALKULATION 


##";,"barverkaufsp.",p 

820 print using " AHHHHHHHHHHHHHH. 
##","skonto (kunden)",t 

830 printst$ 

84@ print using " AHHHHHHHHHHHHHR. 
##";,"zielverkaufsp.",u 

8589 print using 
##";"rabatt (kunden)",d 

868 printst$ 

870 print using " AHHHHHHHHHHHHHH. 
##";"listenverkaufsp.",x 

888 printet$ 

898 goto 1529 

988 print c3$left$(qad$,4)rn$" list 
eneinkaufspreis"b4$b3$"dm "rf$c3$;, 
:inputl 

918 print 03$c4$rn$" rabatt [liefe 
rer)"b$"% "rf$c3$; :inputr 

928 print c3$c4$rn$" skonto (liefe 
rer)"b$"% "rf$c3$; :inputs 

938 print c3$c4$rn$" bezugskosten" 
b$bA$"dm "rf$c3$; :inputb 

948 if nn=4 then 968 

9580 print c3$c4$rn$" handelsspanne 
"b$b4$"% "rf$c3$; :inputw:goto 1920 
960 print c3$c4A$rn$" kalkulationsz 
uschlag"b48b3$"% "rf$c3$; :inputj 
978 e={1l*r) /100:f=1-e:h=(f*s)/108 
980 i=f-h:k=-irb:v=(k#j) /100:x=krv 
9390 print ci$left$(gd$, 10) 

"a20 print using " HHHHHHHHHHHHHHH 
.##" ;"kalkulationszus.",v 

1212 goto 648 

020 print c3$o4$rn$" listenverkau 
fsp. "b$"% "rf$co3$; :inputx 

1830 q=(x*w)/100:k=x-g:i=k-b 

108408 j=180-s:f=(i*i98)/i:h=f-i 
10850 v-100-r:1=(f*108) /vie=1l-f 
1068 print cl$left$(gd$,'0) 

1070 print using " HAHHHHHRHHHHHHH 
.##" ;"handelsspanne”,q 

1080 goto 648 

10899 print c3$c4$right$( st$,37) 
1180 print using " AHHHHHHHHHHEHHH 
.A#","listenverkaufsp.",x 

1118 print c3$right$(let$,37) 

1120 goto 1510 

1130 print left$(gd$,5)c3$rn$" ges 
chaeftsk. (hkz)"b4$64$"%"c3$rf$;:i 
nputg “ 
1148 print c3$c4$rn$" gewinn"bEb$" 
%"c3$rf$; :inputa 

1158 print c3$cA$rn$" skonto (kund 
en) "b$"%"c3$rf$; :inpute 

1160 print c3$c4$rn$" rabatt (kund 
en) "b$"%"c3$rf$; :inputd 


" HHHHHHRHHHHHHHH. 


88 


1178 
1182 


1109 


17 


if nn=6 then 1248 
e=190-d:h=(e*co) /100:t=e-h 
o=1BB+a:m=-(t*108) /o:f=190+g 
1228 k=(m*100) /f:z=k-1098 

1210 mn=z-z:tt=mn-z:g=-int(tt*199+@ 
.5)/1998 

1228 print cl$left$(gr$,5)left$(gd 
$,11)rn$" die handelsspanne betrae 
et: "rt$c4H 

1238 print tab( 16) ;q;"%":goto 
1240 e=( 100*g) /100:h=108+e 
1258 t=(h*a) /198:0=h+t 

1260 m=100-c:f=(0*188) /m 

1278 kK=100-d:n=(f*100) /K:yy=n-100 
1280 v=int( yy*100+0.5)/188 

1298 print c1$c3$c3$left$(ad$,1!)r 
n$" der kalkulationszuschlag betra 
egt: "rf$c4$ 

1308 print tab[ 16) ;v;,"%" 

1318 print left$(gd$,9) c3$rn$"<<< 
"Fl$"druecken sie bitte eine taste 
"Fo$" >>>"rf$ 

1329 getkey a$:if aß=""then 
lse goto 188 

1330 print c3$left$(gd$,7)rn$" bez 
ugspreis"b$b3$"dm "rf$c3$; :inputk 
1349 print ©3$c4$rn$" listenverkau 
fspreis"b5$"dm "rf$c3$; :inputx 
1358 if nn=8 then 1438 

1360 p=x-k:pp=(p*190) /x 

1378 hh=eint(p*1909+0.5)/100 

1388 q=int(pp*1@90+0.5)/109 

1392 print. cl$ieft$(qr$,4)left$(gd 
$,10)rn$" die handelsspanne betrae 
gt in: "rf$c4$ 

1408 print tab( 15) "dm";hh 


1318 


1320:e 


14190 print tab( 16) c4$"%";q 
1428 goto 14989 
1430 p=x-k:ww=(p*10B) /K 


1448 rr=int(o*128+90.5)/102 

1450 v=int(ww®108+9.5)/129 

1468 print cl$left$fgd$, !ß)irn$" de 

r kalkulationszuschlag betraegt in 
"rf$c43 

1498 print tab( 15)"dm";rr 

1488 print tabf 16) c43"%";v 

1490 print left$(gd$,8) c3$rn$"<<< 

"f1$"druecken sie bitte eine taste 

"fc$" >>>"rf$ 

1508 getkey a$:if a$ß=""then 1520:e 

Ise 188 

1518 print left$(cd$,7) 

1529 print o3$rn$"<<< "Fl$"druecke 

n sie bitte eine taste"fo$" >>>"rf 

$ 

1530 getkey a$:if a$=""then 1538:e 


HANDELSKALKULATION 


LISTING 


lse 188 <lb> 
1540 end <je> 
1550 rem ,.nachspann =============== <af> 
‘560 rem * farbcodes/steuercodes * <kn> 
1570 c4$=chr$( 217) :rn$=chr$( 818) <cd> 
1588 he$=chr$( 919) :c3$=chr$( 829) <pc> 
1598 fi$=chr$( 130) :fo$=chr$( 132) <io> 
1688 rf$=chr${ 146) :c1$=chr$( 147) <ob> 
1618 rem *%* zeichensatz/graphik * <kc> 
1620 rem *#r##kttt zeichenfolgen * <on> 
1638 for q=1 to 48 <ec> 
1648 gqd$=qd$+c4$:ar$=qr$+c3$ <mm> 
1658 next q <df> 
1660 return <id> 
1690 rem ==============0====22===2= <jd> 
16880 rem 12277 bytes memory <nn> 
1698 rem 05816 bytes program <eg> 
17080 rem 00273 bytes variables <nj? 
1710 rem 009225 bytes arrays <kl> 
1720 rem BB315 bytes strings <eb> 
1738 rem 95648 bytes free (B) <bk> 
1740 rem ====--ee=,=2==S0=e=er=e= (gj> 


TELE-MÜHLE 


Ich habe mich um eine 
originalgetreue Simula- 
tion des Spielklassikers 
„Mühle“ bemüht und al- 
le graphischen Möglich- 
keiten des V3.5- Basics 
weidlich ausgenutzt. End- 
lich ein Gesellschaftsspiel 
auf dem Terminal, durch 
dessen User-freundliche 
Handhabung die beiden 
Spieler schnell das Origi- 
nal vergessen haben wer- 
den! 

Denn bei Screenwech- 
seln (z.B. Steinwegnahme) 


wird nicht, wie bei ähnli- 
chen Spielen üblich, der 
ganze Bildschirm gelöscht 
und verändert neu wieder 
aufgebaut, sondern wirk- 
lich nur die betreffende 
Stelle verändert. Selbst- 
verständlich (und leider) 
läuft ein Programm sol- 
chen Umfangs nicht auf 
der Grundversion des C 
16/116, da die der Gra- 
fik verbleibenden 2 K- 
Bytes wirklich zu wenig 
sind. Aber allen Plus 4 - 
und C16/116 + Ausbau- 


modul-Besitzern, die ja 
schon länger auf dem 
Markt zu erhalten sind 
(16K oder 64K), steht 
dieses schöne Programm 
zur Verfügung. 

Beim Spielen selbst hat 
man durch die einfache 
Handhabung keinerlei 
Schwierigkeiten. Selbst- 
verständlich beherrscht 
der Computer sämtliche 
Regeln des Mühlespieles 
und macht sich bei ei- 
nem Regelverstoß laut- 


Mühle per Computer 


und 
zur 


stark bemerkbar 
ruft den Sünder 
Ordnung. 

Nur bei einer Regel 
(bei Steinentnahme - 
nur möglich, wenn der 
Stein nicht in einer Müh- 
le ist, falls nicht alle 
Steine in Mühlen sind), 
fragt der Computer den 
betroffenen Spieler, ob- 
alles seine Richtigkeit 
hat. 

Sämtliche übrigen Re- 
geln beherrscht der Com- 
puter aber perfekt (z.B. 
Mühle-Erkennung oder 
Hüpfen bei drei Steinen, 
usw.) Hat nun ein Spieler 
gesiegt, auf welche Weise 
auch immer, wird er am 
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Ende mit einer Fanfare 
und schönen grafischen 
Spielereien belohnt. 


Zum Spielfeld 


"Während des Spielver- 
laufs sieht man ganz oben 
links für Weiß und rechts 
für Schwarz die Position 
des letzten weggenomme- 
nen Steines, darunter die 
letzte eingetippte Stein- 
position und ganz unten 
die jeweilige Steinanzahl. 
Das Spielfeld ist waag- 


recht dreigeteilt, in A-B- 
C, und senkrecht bestim- 
men jeweils Zahlen die 
genauen Positionen. Sieht 
man sich das Einteilungs- 
system genauer an, ver- 
steht man es sofort und 
wird keine Schwierigkei- 
ten damit haben. 

Zu beachten ist aller- 
dings, daß in der B-Ebe- 
ne nur die Zahlen 1, 4, 
7, 9, 6 und 3 existieren, 
um das logische Durch- 
zählsystem in den beiden 
anderen Ebenen nicht zu 
durchbrechen. 

Wie üblich beginnt 
Weiß (Rand gelb) und 
wechselt mit Schwarz 
(Rand blau) ab. Zuerst 
werden alle Steine ge- 
setzt (‚Wohin’), und dann 
wird gezogen (,Von’ - 
‚Nach’). 


« 


TELE-MÜHLE PLUS/24 


180. rem tele-muehle =============p4 
28 rem (p) commodore welt 

30 rem ==========2=========0=2======= 
48 rem (c) by m. purucker 

58 rem 

68 rem 

70 rem version 3.5 n 

88 rem c16/116 + 16k/p4 

98 rem =============2=-======2======= 
188 graphic 1,1:graphic 9,1 

118 rem -------------------------- 
1280 rem strings initialisieren 
138 rem ----------------------=--- 
1408 trap 3768 

150 dim s$(26) :color Q9,2,8:color 4 
2,0 


168 restore 96%:for uu=@to1l1:read 
n,p:gosub 97®8:next uu 

170 s$( 12) =chr$( 98) +chr$( 32) +chr$( 
98) +chr$( 32) +chr$( 98) +chr$( 32) +chr 
$( 98) +chr$( 32) 

188 s$( 12)=s$( 12) +chr$( 98) :s$( 13) = 
chr$( 98) +chr$( 32) +chr$( 98) :s$( 14) = 
chr$( 117) 

198 s$( 15) =chr$( 185) :s$( 16) =chr$( 1 
06) :s$( 17) =chr$( 107) :s$( 18) =chr$( 9 
8) :s$( 19) =chr$( 32) 

288 s$( 20) =chr$( 99) :s$( 21) =chrä$( 17 
6) :s$( 22) =chr$( 174) :s$( 23) =chr$( 18 


1) 

218 s$( 24) =chr$( 182) :s$( 25) =chr$( 
73) :s$( 26) =chr$( 189) 

220 Beh =---- 7 a nn 
238 rem vorspann 

248 rem ----------------- 
258 scnclr 

2608 char1,1,1,s$( 14) +s$(1)+s$[ 15): 


char1,1,2,s$( 16) +s$( 10) +s$( 15) +s$( 
14) +s$(2)+s$( 17) 

278 char1,5,3,s$(®)+s$( 3) +s$( 14) +s 
$(4)+s$l 15) +S$l9)+s$l 14) +s$l 15) +5$ 
(5) +s$( 14) +s$( 4) 

280 char!,36,3,s$( 15) :char1,5,4,s$ 
(2) +s$l3)+s$( 18) +s$l 14) +s$(6) +s$l 1 
7?)+s$(9)+s$( 0) 

298 char1,23,4,s$(5)+s$( 18) +s$( 14) 
+s$(6) +s$( 17) 

308 char1,5,5,s$(9)+s$(3)+s$(Q)+s$ 
(S)+s$[ 8) +s$(5)+s$( 0) 

310 char1,5,6,5$(B®)+s$( 3) +s$( 18) +s 
$(16) +s$(6) +s$[ 15) +5$(9) +s$(D) +s$l 
5)+s$( 18) +s$( 16) - 

320 char1,32,6,s$(6)+s$( 15) 

330 char1,5,7,s$(8)+s$( 3) +s$( 18) +s 
$C14)+s$l6)+s$l 17)+s5$l9) +s$l 9) 

348 char1,23,9,s$(5)+s$( 18) +s$( 14) 
+s$(6) +s$( 17) 

358 char1,5,8,s$(®)+s$l3)+s$(9)+s$ 


<jj? 
<op?> 
<ng> 
<am> 
<pd> 
<ah> 
<kk> 
<ja> 


<jg> 


<am> 
<cn> 
<oa> 
<hh> 
<bj> 
<ln> 


<cf> 
<eon?> 
<gh> 
<pb> 
<af> 
<pm> 
<de> 
<kk> 


<ch> 
<nn> 


<bp> 


<ph> 
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(5) +s$( 8) +s$(5) +s$( 2) 

360 char1,5,9,s$(@)+s$( 3) +s$( 18) +s 

$016) +s$(6) +s$( 15) +s$( 9) +s$l 18) +s$ 
(16) +s$(6) +s$( 15) 

378 char1,28,9,s$(9)+s$( 18) +s$( 16) 
+s$(6)+s$( 15) | 

388 char1,5,10,s$( 16) +s$( 17)+s$( 3) 
+s$( 16) +s$(4) +s$( 17) +s${ 9) +s$( 16) + 
s$(4)+s$( 17) 

398 char1,28,18,s$(9) +s$( 16) +s$(4) 
+s$( 19) 

408 char1,2,13,s$(21)+s$( 28) +s$( 22 
)+s$(19)+5$(21)+s$( 20) +s$l 22) +s$l 1 
9)+s$l21)+s$( 19) 

418 char1,12,13,s$( 23) +s$( 24) +s$( 1 
9) +s$( 22) +s$( 19) +s$(21)+5$(8) +s$( 2 
2)+s$( 19) 

428 char1,24,13,s$( 21) +s$(7)+s$( 21 
)+s$(6)+s$( 22) 

438 char1,2,14,s$( 12) +s$(8) +s$( 13) 
+s$(8)+s$( 13) +s$( 7) +s$l 18) 

448 char1,2,15,s$( 12) +s$(8) +s$( 13) 
+s$(8)+s$( 13) +s$[7)+s$( 18) 

458 char1,2,16,s$( 12) +s$(8) +s$( 13) 
+s$C11)+5$(13)+s5$l7)+s$l18)+S$l 11) 
A680 char1,2,17,s$( 18) +s$( 19) +s$( 25 
)+s$( 20) +s$( 26) +s$( 19) +s$( 13) +s$( 8 
)+s$(13)+s$( 8) 

478 char1,22,17,s$( 13) +s$(7)+s$( 18 
):char1,2,18,s$( 25) +s$(3) +s$( 26) +s 
$(19)+s$( 25) 

488 char1,11,18,s$(6)+s$( 26) +s$( 19 
)+s$[ 25) +s$(8) +s$( 26) +5$( 19) +s$( 25 
)+s$(6) 

498 char 1,29,18,s$(26)+s$( 19) +s$( 
25) +s$(6) +s$( 26) 

588 char 1,13,21,s$( 14) +s$( 28) +s$( 
15) :char. 1,13,22,s$( 18)+"c"+s$( 18) 

518 char 1,17,22,"by purisoft m.p. 
85/86":char 1,13,23,s$( 16) +s$( 28) 
+s$( 17) 

528 clr:fa$=chr$( 138) :fo$=chr$t( 131 
):trap 3760:gb=9:gw=9 

530 for ui=®to?:vol ui:sound 1,ui, 

48:sound 2,ui,48:color ®,ui+3,3:co 
lor 4,ui+5,3 

540 for t=1t040®:next:next 

558 sound 1,7,120:sound 2,516, 128: 

color 8,14,1:color 4,14,1 

568 sound 1,516,128:sound 2,778,12 
8:color 8,12,2:color 4,12,2 

578 sound 1,779,158:sound 2,897,15 
@:color 8,8,4:color 4,8,4 

588 vol 8:sound 1,7,28:sound 2,516 
»30:C01or’0,3,8:cölor 4,3,0 

598 sound 2,516, 120:sound 1,897,28 
8:color 8,16,3:color 4,16,3 

608 for ui=8tolstep-1:vol ui:sound 


<bb> 


<hj> 


<ld> 


<dj> 


<jl> 


<1%> 


<ia> 
<ai> 
<md> 
<jn> 


<gk> 


<jf> 


<pb> 


<el> 
<op> 


<gh> 


<hm> 
<bd> 
<cb> 
<im> 
<hh> 
<da> 
<mp> 
<ob> 


<hl> 


TELE-MÜHLE ’PLUS/A 


3,516,280:color®8,5,2:color4,5,2:for 
?=1t0580®:next 
='& vol ui-1:sound 3,7,28:color B, 
2,8:color 4,2,8:for t=1t05B®:next: 


528 scnelr:char 1,1,1,"vorname spi 
ler 1 (weiss) ":input n1$ 

538 char 1,1,3,"vorname spieler 2 
schwarz) ":input n2$ 


548 char 1,1,18,"mit ’e’ 


zum spiel 


558 char 1,3,24,"- mit 
erlaeuterungen -" 

5568 poke 239,8:getkey hs$:if hs$=" 
2" then 998 

578 senclr:char 1,18,1,"spielerkla 
erung" 

558 char 1,1,3,"spielfeld:der spie 
Iplan ist horizontal" 

698 char 1,1,5,"dreigeteilt (a-b-c 
);vertikal bestimmen" 

788 char 1,1,7,"zahlen die positio 
nen,indem man ein-" 

?18 char 1,1,9,"fach in den jeweil 
igen muehleebenen" 

728 char 1,1,11,"von links nach re 
chts durchzaehlt." 

738 char 1,1,13,"in der b-ebene ex 
istieren b2,b5,b8" 

740 char 1,1,15,"nicht, damit das 

zaehlsystem nicht" 

758 char 1,1,19,"durchbrochen wird 


"space’ zu 


768 char 1,5,24,"- mit ’space’ umb 
laettern -":poke 239,8:getkey hs$: 
scnelr 

778 char 1,1,1,"regeln:es wird nac 
h den allgemeinguel-" 

780 char 1,1,3,"tigen regeln gespi 
elt;eines ist aber " 

798 char 1,1,5,"zu beachten:hat ma 
n bei der steinweg-" 

888 char 1,1,7,"nahme einen stein 

gewaehlt, fraegt das" 

818 char 1,1,9,"programm, ob diese 
s der regel gemaess" 

828 char 1,1,11,"ist.diese regel 1 
autet:ein stein," 

838 char 1,1,13,"der in einer mueh 
le eingeschlossen ist" 

848 char 1,1,15,"darf nicht entnom 
men werden, ":color 1,3,5:char1,3®, 
15,"falls" 

858 color ?1,1:char 1,1,17,"nicht a 
lle steine in muehlen ein-" 

8680 char 1,1,19,"geschlossen sind. 
878 char 1,5,24,"- mit 


"space’ umb 


<hn> 


<jn> 
<ga> 
<ek> 
<lg> 
Rn 
<mj? 


<o3> 


. <kk> 


<jb> 
<ba> 
<bl> 
<ol> 
<pp> 
<hn> 


<io> 


<eh> 


<ki> 


<nl> 
<of> 
<ck> 
<lh> 
<fn> 


<oh> 


<fa> 
<if> 


<dp> 
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laettern -":poke 239,8:getkey hs$: 
scnelr 

888 char 1,1,1,"vorsicht 
ie beim steineziehen" 
898 char 1,1,3,"auf den 'selben pla 
tz ziehen, auf dem" 


t:falls s 


988 char 1,1,5,"sie stehen (bzw. s. 


tanden), haben sie " 

918 char 1,1,7,"das spiel verloren 
‚ da der computer " 

928 char 1,1,9,"dann annimmt, dass 
sie mit keinem " 

938 char 1,1,11,"stein mehr ziehen 
koennen." 

948 char 1,5,24,"- mit space zum s 
piel -":poke 239,8:getkey hs$ 


950 goto 998 

968 data 2,98,36,99,31,99,5,32,5,9 
9,7,32,4,99,6,32,4,32,2,32,3,99,4, 
184 

9978 for tt=1ton:s${f uu)=s$( uu)+chr$ 
(p) :next:return 

988 rem 


color 
vol 8° 
gosub 
gosub 
gosub 2208 

gosub 2448 

if ko=] then gosub 3188 
goto 1968 

rem 
rem 
rem 
graphic 1,1 

1130 char 1,1,28,"rem graphische s 
pielfeldvorbereitungen" 

1148 draw 1,100,30t0100,20t0110,28 
:circle1,180,28,1:sshape 0ol$,90,18 
‚110,38 

1158 draw 1,150,38t0158,28t0140,20 
:circle1,1580,28,1:sshape o0d$, 148, 1 
0,160,308 

1168 draw 1,288, 18t0200,28t0210,28 
:circle1,288,28,1:sshape ul$, 198,1 
8,218,38 x 

1178 draw 1,258, 10t0258,20t0240,28 
:circle1,258,28,1:sshape ur$,248,1 
0,268,38 

1180 draw 1,298, 28t0310,28:draw 1, 
308, 28t0388,30:circle1,3800,20,1 
1198 sshspe mo$,298,10,318,30 

1208 draw 1,18,180t028, 108:draw 1, 
20,98t028,118:circle1,28,108,i 
1218 sshape mr$, 18,90,30,118 


8,2:color 4,7,6 
gosub112® 

1388 

2858 


<pm> 
<ma> 
<fl> 


<ah> 


<mk> 
<jb> 


<co> 


<bo> 39 
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1228 draw 1,50,90t05®, 100:draw 1,4 
0, 100069, 108:circle1,58,188,1 
1238 sshape mu$,48,90,68,118 

1248 draw 1,118, 180t0188, 100:draw 
1,100,90t0100,118:circle1,1900,108, 
1 

12508 sshape m1$,90,90,110,118 

1260 draw 1,140, 100t0168, 100: draw 
1,158,90t0158,118:circle1,158,180, 
1 

1278 sshape k$, 149,98, 160,118 

1288 circle 1,20,28,18:circle 1,28 
‚2e8,?:circle 1,28,20,4 

1298 sshape w$,18,10,30,30 

1308 circle 8,28,28,7:circle 8,20, 
28,4:paint 1,28,28 

1318 circle 8,208,280,72:circle 0,20, 
20,4 

1328 sshape b1l$,10,180,30,3®8 

1338 circle 1,30,38,1:paint 1,30,3 
@:sshape p$,29,29,31,31 


1348 scncelr:return 

1330 Ban FF 
1368 rem spielfeldaufbau 

1390: DEM ann 


1380 box 1,74,14,244,184 

1398 box 1,99,39,219, 159 

14808 box 1,124,64,194,134 

1418 drew 1,74,99t0124,99 

1428 draw 1,194,99t0244,99 

1438 draw 1,159, 14t0159,64 

1440 draw 1,159, 184t0159, 134 

14580 restore2148:for t=1t024 

1460 read x,y 

1478 gshape p$,x-1,y-1 

1480 next:return 

1290| pem en 
1588 rem steinposition bestimmen 
1518 rem --------------------- ---- 
1528 restore2148:for t=1topo 

1530 read x,y 

1548 next:return 

1558 rem ------------------------- 
1560 rem 
1598 rem ------------------------ - 
1580 ko=B:i=asc(b$) -64: j=vallz$) :f 
ore=1t03 step 2 

1598 forf=1t07 step 3 :ka=® 

1608 if fle,f)=fle,f+i)andf(e,f)=f 
(e,f+2)and( f(e,f)=lorf(e,f)=2)then 
ka=sf(le,f):ko=1 

1610 ifko=1and( esiand( f=jor( f+1)=j 
or(f+2)=j))then ko=1:else ko=® 
1628 if ko=1 then return 

1632 next f,e 

1648 for f=1t07 step 3:ka=® 

1658 if fFL1,f)=fl2,flandfl 1,f)=f(3 
‚Fand fl 1,f)=Iorf( 1,f)=2)thenka=f 


<ki> 
<cf> 


<ej? 
<pb> 


<hf> 
<hm> 


<pa> 
<ec> 


a 


<in> 
<fa> 


<am> 
<kk> 
<ig> 
<np?> 
<k1l> 
<lg> 
<ef> 
<ai> 
<oj? 
<ba> 
<cj? 
<an> 
<hj> 
<og> 
<ln> 
<hg> 
<kj>? 
<de> 
<di> 
<dc> 
<eg> 
<fm> 
<an> 
<mh> 
<no> 


<op> 
<db> 


<af> 


<nh> 
<fj> 
<ai> 
<ia> 
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(1,f) :ko=1 

1668 ifko=1land( f=jandl i=1ori=2ori= 
3))thenko=1:elseko=d 

1678 if ko=1 then return 

1688 nextf 

1698 for f=3t09 step 3:ka=® 

1700 if fLi,F)=Fl2.F)andfl 1,F)=f(3 
‚f)and( f( 1,Ff)=1orf(l 1,f)=2)thenka=f 
(1,f):ko=! 

1710 ifko=land( f=jand(i=1ori=2ori= 
3))thenko=1:elseko=® 

1728 if ko=1 then return 

1730 next f 

1748 ka=0 

1758 iff(2,1)=f(2,4)andf(2,1)=fl2, 
?)and( fl2,1)=1orf(2,1)=2)thenka=f( 
2,1) :ko=1 

1768 ifko=1and( i=2and( j=lor j=4or j= 
?))thenko=1:elseko=® 

1778 if ko=1 then return 

1788 ka=d 

1798 iff(2,3)=f(2,6)andf(2,3)=f(2, 
9)and( f(2,3)=1lorf(2,3)=2)thenka=f( 
2,3) :ko=1 

1808 ifko=1and( i=2and( j=3or j=60r j= 
9))thenko=1:elseko=® 

1818 if ko=1 then return 

1828 ka=® 

1330 iffl1,2)=fl1,5)andf( 1,2)=F(1, 
8)and( fl 1,2)=t1orf( 1,2)=2)thenka=fl 
1,2) :ko=1 

1848 ifko=1snd( i=1and( j=20r j=5orj= 
8))thenko=1:elseko=8 

1858 if ko=1 then return 

1860 ka=® 

1878 iffl3,2)=Ff(3,5)andf( 3,2)=F(3, 
8) and( f(3,2)=1orf(3,2)=2)thenka=f( 
3,2) :ko=1 

1880 ifko=1land( i=3and( j=2o0r j=Sor i= 
8)})thenko=1:elseko=® 

1898 return 

1988 rem ------------------------- 
1918 rem 
1928 rem --------------- -- -------- 
1938 ifpo=1orpo=4orpo=?thenez$=ol$ 
:return:rem ersatzsteinpositionsen 
tscheidung 

1948 ifpo=3orpo=60rpo=9thenez$=od$ 
return 

1958 ifpo=16orpo=190orpo=22thenez$= 
ul$:return 

1968 ifpo=18orpo=21orpo=24thenez$= 
ur$:return 

1978 ifpo=2orpo=23thenez$=mo$:retu 
rn 

1988 ifpo=12orpo=15thenez$=mr$:ret 
urn 

1998 ifpo=Borpo=1?thenez$=muß:retu 


‚+ 


a nhı nı Ri nı Ai € TI 


rn 


28088 ifpo=1Borpo=13thenezf=ml$:ret 
urn 

2018 ez$=kK$:return 

DON ‚pam »asesseiennesmen un 
2838 rem 
2ed40 sem en tn 
2950: char 156,1, "8":chär.1,6, 12.."B 
"scher 1,.5.,23, "ec" 

2060 char 1,11,24,"1":char. 1,21,24 
‚en scher 1,32524,"3" 

2070 char 1,13,21,"4":char 1,21,24 
„5'N:Char 1,28,24,"5" 

2080 char 1,16,18,"7":char 1,21 
‚"8”:char '1,.25,18,"9* 

2098 char1,1,18,"noch":char1,35,18 
zunach"”,; ' 

2188 char1,2,28,str$(gw) :char',36, 


18 


’ 


28,str$(gb) ,I:return 

2130 rem aan 
2128 rem positionsdatas 

2130 nem Fre nn 


2140 data 74,14,159,14,244,14,99,3 
9,159,39,219,39,124,64, 159,64, 194, 
64,74,99,99,99 

2158 data 124,99,194,99,219,99,244 
‚99,74,184,159,184 

2160 data 244,184,99,159, 159, 159,2 
19,159,124,134, 159, 134,194, 134 
2120 rem + 
2188 rem 
290 nem Sun 
2200 gb=-9:gw=9:w=9:b=9:for t=1to3: 

for y=1t09:f(t,y)=®:nexty,t 

2210 ge$="ala2a38435536873839b1b4b7 
b9b66b63c1c20304c5c6c7c8c9" 

2220 trap 2238 

2230 color 4,8,6:char 1,1,5,"wohin 
":poke 239,8:getkey b$,z$:3$=b$+z$ 
:dr=1 

2248 char 1,2,9,8$ 

2250 ifa$="b2"ora$="b5"ora$="b8" t 
hensound 1,8,28:goto 2238 

2268 if fl(asc(b$)-64) ,val(z$))<>® 
then sound 1,8,20:goto 2238 

2278 po=int((instr(ge$,a$)+1)/2):i 

fpo<>dthengosub152B8:elsesound!,®8,2 

d:goto 2238 

2280 gshapew$,x-10,y-18:w=w-1:f((a 
sc(b$)-64) ,‚val(z$))=1:gosub2858:go 
sub 1588 

2298 if ko=1 then gosub 3188 

2308 if gw<3then3498 

2318 char 8,1.5,"wohin" 

2320 trap 2330 

2338 color 4,15,1:char 1,34,5,"woh 
in",1:poke 239,8:getkey b$,z$:a$=b 
$+z$:dr=2 


<no> 


<gj? 
<1lj> 
<hbl> 
<ch> 
<if> 


<hl> 


2348 char 1,36,9,a$,1 

2358 ifa$="b2"ora$="b5"ora$="b8" t 
hensound 1,8,28:goto 2338 

2368 if fl(lasc(b$)-64) ,vallz$))<>Q 
then sound 1,9,28:goto 2330 

2378 po=int((instr(ge$,a$)+1)/2):i 

fpo<>dthengosub152B8:elsesound!,2,2 

B:g0to 2338 

2388 gshape bi$,x-10,y-i18:b=b-1: Fl 

(ssc(b$)-64) ,‚vall z$))=2:gosub 2058 
:gosub 1588 

2398 if gb<3then3498 

2408 if ko=1 then gosub 3188 

2418 char 98,34,5,"wohin" 

2428 if b=dthenreturn:else 2228 

2A30 Ban Sr 

24408 rem 

PASU, BEN 

2468 trap 2488 

2470 ifgw<3 then3498 

2488 color 4,8,6:char 1,1,5,"von 
":poke 239,0:getkey b$,2$:3$=b$+z$ 
:dp=] . 

2498 if f((asc(b$)-64) ,val(z$))<>d 

r then sound 1,8,28:goto 2488 

2508 char 1,2,9,8$ . 

2518 f((asc(b$)-64) ‚val(z$))=8:po= 

int((instr(ge$,8$)+1)/2):bo=po 

2528 if bo<>® then gosub 1938:else 
sound 1,8,28:goto 2488 

2538 gosub 1528:gshape ez$,x-10,y- 
18:gosub 2858 

2548 trap 2558 

2558 char 1,1,5,"nach":getkey b$,z 

$:32$=b$+z$ 

2568 char 1,2,9,82$ 

2578 ifgw<>3 then gosub2838:else e 
v1 

2580 if fl(asc(b$)-64) ,val( z$))<>® 

orev=®then sound 1,0,28:goto 2558 

2598 fl(asc(b$)-64) ‚val(z$))=1:po= 
int((instr(ge$,a2$) +1) /2) 

2608 if po<>® then gosub 1528:else 
sound 1,8,28:goto 2558 

2618 gshape w$,x-10,y-18:gosub 285 

O:gosub 1588 

2628 if ko=1 then gosub 3188 

2638 char 8,1,5,"nach" 

2640 trap 2668 - 

2658 ifgb<3 then349® 

2660 color4,15,1:char1,35,5,"von", 
1:chari1,4,5," ":poke239,8:getkeyb 

$,2$:8$=b$+z$:dr=2 

2678 if Fl(asc(b$)-64) ,vallz$))<>d 
r then sound 1,90,28:g0to 2668 

2688 char 1,36,9,8$,1 

2698 f((asc(b$)-64) ,vallz$))=®:po= 
int(l(instr(ge$,a$) +1)/2):bo=po 
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TELE-MÜHLE PLUS/4 


2708 if bo<>® then gosub 1938:else 
sound 1,8,28:goto 2668 

2710 gosub 1520:gshape ez$,x-19,y- 
10:gosub 2858 

2728 trap 2730 

2738 char 1,34,5,"nach",1:poke 239 
‚O:getkey b$,2$:32$=b$+z$ 

2748 char 1,36,9,a2$,1 

2758 if gb<>3thengosub 2838:else e 
v1 

27608 if f(lasc(b$)-64) ,vallz$))<>2 
or ev=® then sound 1,0,28:goto 27 
38 

2770 f((asc(b$)-64) ,val(z$))=2:po= 
int((instr(ge$,a2$)+1)/2) 

2780 if po<>® then gosub 1520:else 
sound 1,0,28:goto 2738 

2798 gshape bl$,x-18,y-18:gosub 298 

58:gosub 1588 

2800 char 98,34,5,"nach" 

2818 return 

28208 rem ---------------- 

2838 rem 

2848 rem ------------------------- 

28580 ev=-® 

2860 if a$=a2$,and dr=1 then dr=2: 
goto 3490 

2878 if a$=a2$ and dr=2 then dr=!: 
goto 3498 

2888 if bo>13 then 2918 

2898 onbogosub2939,2949,2950,2968, 

2970,2980,2990,390%9,3010,23028,32308 
‚3040, 3058 

2988 return 

2918 bo=bo-13:onbogosub3962,3070,3 

082,3090,3120,3110,3120,3130,3142, 
3158,3168 

2928 bo=bo+13:return 

29398 if a2$="a2"ora2$="bi"thenev=el 
:return:else return 

2940 if a2$="al"ora2$="aR"oradg="a 

5"thenev=i:return:else return 

2958 if a2$="a2"ora2$="b3"thenev=! 
:return:else return 

2968 if a2$="b4"ora2$="a5"thenev=l 
:return:else return 

2970 if a2$="a4"ora2$="a6"oradf="a 

2"ora2$="aß"thenev=1:return:else r 

eturn ° 

29808 if a2$="a5"orad$="b6"thenev=el 
:return:else return 

2998 if a2$="b7"ora2$="aß"thenev=! 
:return:else return 

3008 if a2$="a7"ora2d="a5"oradg="a 

9"thenev=1:return:else return 

3a10 if a2$="aß"ora2$="b9"thenev=! 
'return:else return 

3228 if a2$="al"orad$="c1"ora2$="b 


<ej> 


<jp> 
<mh> 


<fh> 
<an?> 


<el> 


<mn> 
<kg> 


<kj? 


<gj> 


<je> 
<jg> 
<ii> 
<po> 
<hi> 
<ol> 
<oi> 
<np> 


<mc> 


<dk> 
<em> 


<ep> 
<dc> 
<ba> 
<kd> 
<fd> 


<ha> 


<bj> 


<ie> 


<bk> 


<oi> 


<ej> 


94 


4"thenev=1:return:else return 

3038 if a2$="b1"ora2$="b7"ore2$="a 
4"ora2$="c4"thenev=i:return:else r 
eturn 

3048 if a2$="b4"ora2$="a7"oradß="c 
7?"thenev=1:return:else return 

3858 if a2$="b6"ora2$="a9"orad$="c 
9"thenev=1:return:else return 

3868 if a2$="b9"ora2$="b3"roradf="a 
6"ora2$="c6"thenev=1:return:else r 
eturn 

3n70 if a2$="b6"ora2$="a3"ora2$="c 
3"thenev=1:return:else return 

3888 if a2$="b1"ora2$="c2"thenev=l 
:return:else return 

3898 if a2$="c1"ora2$="c3"ora2$="c 
5"thenev=1:return:else return 

3108 if 32$="c2"ora2$="b3"thenev=i 
:returnielse return 

3118 if 82$="b4"ora2$="c5"thenev=f 
:return:else return 

3128 if 3a2$="c4"ora2$="c6"ora2$="c 
2"ora2$="c8"thenev=1:return:else r 
eturn 

3130 if a2$="c5"ora2$="b6"thenev=! 
:return:ielse return 

3148 if 82$="b7"ora2$="c8"thenev=i 
:return:else return 

3158 if. 32$="c7"orad$="c9"ora2$="c 
S5"thenev=t:return:else return 

3168 if a2$="c8"ora2$="b9"thenev=i1 
:return:else return 

3178 rem -------------------- 
3188 rem 
3198 rem ------------------- 
3298 au=d 

3218 sound 1,950,5%8:sound 2,858,58 
:for t=1t02908:next:trap 3238 

3228 sound 1,158,58:sound 2,59,58 

3238 char 1,1,5,"welcher":char 1,1 
2, Yekein 

3248 poke 239,8:getkey b$,z$:we$=b 
$+z$:po=intl (instr(ge$,we$) +1) /2) 


3250 if po=® then sound 1,0,20:got 


o 3238 
3260 if dr=1 then char 1,36,2,we$, 
1:goto 3288 


3278 char 1,2,2,we$ 

3288 if f((asc(b$)-64) ‚val( z$))=dr 
or f{lasc(h$)-64) ,‚val(z$))=® then 
3229 

3298 for t=1t010208:next 

3300 gosub 3419 

3310 if au=1 then 3338 

3328 goto 3238 

3338 gosub 1520:gosub 1938: f((ascl 
b$)-64) ,val(l z$))=B:au=® 

3348 gshape ez$,x-10,y-1®:char 2,1 


<1ln> 


we 
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‚5,"welcher" "stein-?": 


gosub 2858 


:Char 9; 1,7; 


3350 if dr=1 thengb=gb-1:char 1,36 


‚28,str$(gb), 1 

3368 if dr=2 then gw=gw-1:char 1,2 
‚28,str$(gw) 

3378 return 

3388 rem ------=------------------ 

3398 rem steinentfernen subroutine 

3408 rem ------------------------- 

3418 graphic ®,1:char 1,7,5,"ist d 

iese steinentnahme" 

3428 char 1,7,7,"der regel gemaess 
3" 

3438 if dr=1 then va=2:else va=l 

3448 char 1,2,9,"(von spieler"+str 

$(va)+" zu beantworten)" 

345% char 1,18,11;"C3/n):" 

3460 poke 239,8:getkey ri$:if ri$= 

"j" then au=l 

3478 graphic 1,8:return 

3480: rem 7a 

3498 rem 

ssuo fen een 

3518 color 8,2,8:color 4,2,8:graph 

ic 1,1:graphic 08,1 

3528 if dr=!then n3$=n1$:else n3$= 

n2$ 

3538 color 1,4,5:for t=2to24:char 
1,1,t,"gratuliere !":next 

3548 color 1,12,4:char 1,20,12,fa$ 

+n3$+fo$ 

3550 celor: 1,8,5:cher 1,29,4," 

er ! ! !":char 1,25,28, 
r" 

3568 color 1,3,5:vol 8:sound1,7,48 

8:sound2,778,488:gosub 3658 

3578 sound 1,7,128:sound 2,516, 128 

3588 sound 1,516, 128:sound 2,778,1 

28 

3598 sound 1,778,150:sound 2,897,1 

58:fort=1t023808:next 

3688 graphic 1,8::gosub 3788: sound 
1,7,3@0:sound 2,516,38 

3618 sound 1,516,280:sound 2,897,2 

20 

3628 fort=1t03:color1,7,5:circlei, 
159,99,49:color1,12,5:circle?,159, 

99,47:next 

3638 for t=1t040988:next:color 8,2: 


sieg 
"sieger ! ! 


color 4,7,6:color 1,1:graphic 8,1: 
end 

SpA ren re pe 
3658 rem graphic - schlussehrung 

3660: rem Frame 


3678 circle 1,159,99,98:circle1,15 
9,99,89:circle 1,159,99,88 
3688 color 1,4,3:circle 1,159,99,6 


<co> 
<he> 
<ej? 
<pm> 
<eb> 
<fo> 
<db> 


<a5> 


<ap> 
<mm> 


<pd> 
<ff> 


<ok> 
<ni> 
<cb> 
<fm> 
<ce> 
<ge> 
<pa> 


<fm> 


<dd> 


<gc> 


<ng> 
<ci> 


<gf> 
<bf> 
<ho> 


<ae> 


<1ln> 


<dl> 
<kb> 
<dp> 
<kh> 


<ae> 


3:circle 1,159,99,62xcirele 1,189, 


99,61 <ld> 
3698 color 1,8,4:circle 1,159,99,3 
Sreirele 1, 159, 99,38: circle R, 159, 
99,34: Eatuee <ga> 
3788 char 1,28-int((1len(n3$)+1)/2) 
‚12,n3$ <ae> 
3718 char 1,2,3,"sieger !" <oe> 
3728 char 1,38,3,"sieger !" <ih> 
3738 char 1,2,21,"sieger !" <ki> 
3748 char 1,30,21,"sieger !" <fo> 
3758 return <ph> 
3768 graphic B,1:color B,2:color 1 
‚i:color 4,7,6:end <mp> 


3778 rem muehle ================p4 <al> 


3788 rem 60671 bytes memory <nm> 
37980 rem 14118 bytes programm <np> 
3808 rem 808245 bytes variables <hm> 
3818 rem 88614 bytes arrays. <kl> 
3828 rem B1158 bytes strings <nk> 
3838 rem 12288 bytes graphic <nc> 
3848 rem 32248 bytes free (B) <lh> 
3850 rem =========,=5====20====2==2= cma> 


Damit auch in diesem Heft die allseits beliebten 
Sportspiele nicht zu kurz kommen, präsentieren 

wir Ihnen hier ein Spiel für Bogenschützen. 

Nach dem Start gelangen Sie ins Titelbild. Durch 
Drücken von >SPACE< können Sie nun mit dem 
Spiel beginnen. Auf dem Bildschirm erscheinen folgen- 
de Einzelheiten: 

1. Eine fünffarbige Zielscheibe 

2. Der Highscore-Zähler 

3. Der Zähler für den aktuellen Spielscore 

4. Die Anzeige für die Mindestpunkteanzahl 

5. Die Level-Anzeige 

6. Die Anzeige der bereits verbrauchten Pfeile 

Auf der linken Seite können Sie nun einen Pfeil be- 
obachten, der von oben nach unten durchläuft. Mit 
der >SPACE<-Taste können Sie den Pfeil abfeuern. 
Es geht darum, eine möglichst hohe Punktzahl zu er- 
reichen, um in "das nächste Level zu gelangen. In jedem 
Level setzt Ihnen der Computer eine Mindestpunkte- 
Anzahl, die erreicht werden muß. Schaffen Sie dies 
nicht, ist das Spiel vorbei! Die Punktewertung erfolgt 
selbstverständlich von außen nach i innen, die mittlere 
Scheibe ergibt die meisten Punkte. 

Viel Spaß mit diesem Game wünscht der Autor. 


ARROW 


Id rem arrow ==================016 
28 rem (p) commodore welt 

30 rem ======-=-==-===2====2=2===2===222== 
40 rem (c) by h. muehlbacher 

58 rem = 

68 rem 

78 rem basic v3.5 

88 rem c16/116/plus4 

SE Pa Prmmanan En EEREune 
108 poke55,255:poke56,47:clr 

110 gosub1248:color®,1:color4,1:pp 
=3274:mp=-50:1=8:sz=1:scnclr 

128 poke65298, peek( 65298) and251 
1308 poke65299, peek( 65299) and30r48 
148 fori=8t017:reada 

15@ pokeB19+i,a:next:sys819 

160 forza=12808t013148step8 

178 fori=8to?7:reada 

180 ifa=999then388 

198 pokezati,a:nexti:nextza 

208 data162,90,189,0,208, 157,0,48,1 
89,2,209,157,0,49,202,208,241,96 
210 data 9,12,134,127,127,134,12,0 
220 data 255,255,255,255,255,255,2 
55.255 

230 data 255,255,255,255,255,255,2 
53,255 

240 data 255,255,255,255,255,255,2 
595,255 

250 data 255,255,255,255,255,255,2 
565,255 

260 data 255,255,255,255,255,255,2 
55,058 

278 data 255,255,255,255,255,255,2 
55,255 

280 data 96,48,56,60,54,51,96, 192 
298 data 6,12,28,60,108,204,6,3 
308 data 0,0,0,0,66,66, 102,153 

318 data 24,36,36,24,24,36,66, 129 
328 data 16,8,0,16,16,40,68,131 
338 data 90,0,24,20,34,34,66, 132 
348 data 8,0,0,0,25,38,36,24 

350 data 24,36,36,32,112,32,32,32 
360 data 16,16,56,16,16,16,40,68 
370 data 999,999,999,999,999,999,9 
99,999 

388 hs=1908 

398 printcl$cy$c4$c4$left$(gqr$, 16) 
"HIUKLMNOP" 

408 printye$left$(gd$,5)left$(qr$, 
ia)’ resent 5" 

410 printbl$left$(gd$,5)left$(agr$, 
8) "AAAAAAAAAAAAAAAAAAAAAAAAA" 

420 printleft$(qr$,9)b1l$"A"rn$g1$b 
$rf$b1l$"A" 

438 printleft$(qr$,9)b1$"A"rn$g1$b 


3$b3$"a r ro w"b3$b3$rf$b1l$"A" 
448 printleft$(gr$,9)b1$"A"rn$g1i$b 
$rf$b1l$"A" 

450 printleft$(qr$,9)bl$"A"rn$g1$b 
3$"s hoo t in g"b3$rf$bl$"A" 
468 printleft$(gqr$,9)b1l$"A"rn$g1$b 
$rf$bl$"A" 

470 printbl$left$(qgr$,8) "AAAAAAAAA 
AAAAAAAAAAAAAAAA" 

5180 getkeyg$:scnclr 

528 poke65286, peek( 65286) and239 
530 gosub91® 

548 printhe$left$( gd$,4)c3$c3$rn$g 
2$" pfeil nr. "sz; 

558 printc1$b3$left$(qar$,6)g3$" le 
vel"b3$"1"b3$ 

568 printhe$c3$c3$rn$ye$" highscor 
e "hs;c1$" "left$(gr$, 13) 1g$b5$ 
572 poke 3188, 160:poke( 3188-1024), 
107 

588 z1=3430:22=3990:a=66:f=113:gos 
ub978 

598 z1=3589:22=3909:a=69:f=119:gos 
ub978 

600 z1=-3588:22=3828:a=68:f=115:g0s 
ub978 

610 z1=3667:22=3747:3=69:f=120:g0s 
ub978 

620 z1=3707:z2=3707:a=70:f=98:gosu 
b978 

638 z1=3311:22=4071:a=71:f=9:gosub 
978 

648 poke(pp-1) ,32:pp=3274 

650 poke65286, peek( 65286) or 16 
668 printhe$left$(qgd$,4)c3$c3$rn$g 
2$" pfeil nr. "sz;c1$b3$ 

670 printhe$left$(gd$,4)left$(ar$, 
24)rn$g3$" level"ba$l 

680 geta$ 

690 ifa$=" "then?730 

788 pokepp, 32:pp=pp+4® 

718 ifpp>4871thenpp=3314 

728 pokepp,65:g0t0689 

730 pp=ppt+1 

748 ifpeek( pp) =?&theny=1:g0t0798 
758 ifpeek( pp) <>32theny=3:g0t0798 
768 pokepp,65:poke( pp-1924) ,113 
778 poke(pp-1),32 

788 g0t0730 

790 soundy, 981,48 

880 forsl=-8toßstep-9.85 

810 volsl:nextsl 

820 ifpeek(pp) =66thens=s+19:g0to88 
Od 

830 ifpeek(pp)=67thens=s+29:g0t088 
O 


<hm> 
<mb> 
<hd> 
<ih> 


<fe> 
<bl> 
<kf> 
<ce> 


<fc> 
<ka> 
<gi> 
<bh> 
<fo> 
<nl> 
<mc> 
<hi> 
<id> 


<ik> 
<ea> 
<ij> 


<dd> 


<mn> 
<ia> 
<lh> 
<mj> 
<kj> 
<ej> 
<kh> 
<lc> 
<km> 
<bb> 
<di> 
<la> 
<pm> 
<ff> 
<eg> 


<en?> 


<1ld> 


ARROW 


328 ifpeek( pp) =6ßthens=s+2R:gotoB8 


® ifpeek( pp) =?71then88® 
B sz=sz+i:ifsz>ißthensz=! 
0 gosuh9!ß 
& goto64® 
8 printhe$left$(ar$,24)rn$ey$" s 
söre "Ss; " 

>28 ifschsthen95® 

339 hs=s 
348 printhe$co3$eßärn$yef" highscor 
Btnsyeln 

358 ifsz=1then td 
9368 return 

978 forzarz'to 
988 pokeza,s:p 
998 return 
"8082 ifs<mpthenidBd 

10818 vol8ß:sound!,888,68:sound2,891 
‚62 

1828 forws=1to222:nextws 
1838 1=1+1:mp=s:mp=mp+458:mz=mz+42 
:ifmz>488thenmz=4B% 
12848 mp=mp+tmz 

1858 printhe$left$(qad$,4)c3$c3frng 
g2$" pfeil nr."b3$b4$ 

1862 printhe$c4$c4$c3$c3$g3$rn$" m 
indestpunktzahl"left$(gr$,5)g'$" p 
oint "mp; 
1278 printce1$" ":return 

1280 printhe$re$rn$left$(gd$,i2)le 
ft$(gqr$,7)b$b2$ 

1890 printre$rn$left$(ar$,7)b3$"g 
am e"b3$"o ve r"b23$ 

1188 printre$rn$left$igr$,7)b$b2$ 
1110 vol8:sound3,848, 186 

1120 geta$ 
11308 ifa$=" "thenrun 

1140 Fx=fx+l:iffx>Sthenfx=® 

1158 fl=fl+1:iffl>7Q0then1188 

116 colard,?,fFx:color4,2,fx 

1178 goto 1128 

1188 color®,1:color4,1i:fl=® 

1198 geta$ 

120m ifs$=" "thenrun 

1218 g0oto118B 
rem nachspann ============== 
rem * MRS ERRRET SR C 
ce48=chr&{ 917) :rn$=chr$( 818) 
he$=chr $(219) :re$=chre( 228) 
C er 9):bl$=chr$( 031) 
r${ 146) :c1$=chr$( 147) 


u ar 
BE SE SEHLIK HEN) 

DB 
S806900 


0J 
en 


I 
SI 
S 
“3 ? 
4 
ee 
& 


1239 g1$=chr$( 151) :g2$=chr${ 152) <cf> 
1299 1g$=chr$( 153) :g3$=chr$t 155) <mh> 
1328 c1$=chr$( 157) :ye$=chr${ 158) <ed> 


1318 cy$=chr$( 159) <dm> 
1320 rem FF#FFHRRER zeichenfolgen* <oi> 
1330: bag=" "+" "r:539=b28+" " <ce> 
1348 b4$=b3$+" ":65$=b4$+" " <oc> 
1358 for q=!1 to 48 <lp> 
1368 gad$=ad$+c4%:qr$=ar$+c3$ <bi> 
1378 BR "next gq <gm> 
1380 b$=left$(6$,21):return <gd> 
1390 rem ======-===2= ===, nee ck) 
1488 rem 12277 bytes memory <ed> 
‘42! rem 839072 bytes frei <ag> 
1482 rem 392085 bytes belegt: -  <pl> 
1403, Fa Trierer <ma> 
1418 rem. 84269 bytes program <no> 
428 rem QB2BE bytes variables <gl> 
1438 rem 29002 bytes arrays <mf> 
ı4a4B rem 80483 bytes strings <gh> 
1441 rem 01024 bytes zeichensatz <lj> 
1450 rem 93349 bytes free (B) < jm> 
1450 .rem ========================= <de> 


BORSE 


Sie spekulieren an der Börse. Versuchen Sie, durch 
günstiges Aufkaufen und Abstoßen der Aktien mög- 
lichst viel Geld zu erwirtschaften. Haben Sie am Ende 
des Monats genug Geld zusammen, bekommen Sie ei- 
nen Ehrenplatz unter den 7 besten Börsenspekulanten. 
Passen Sie auf: Ihre Schulden verdoppeln sich täglich! 
Das könnte zu einem Bankrott führen, den Sie nicht 
überleben. Vermehrt sich Ihr Startkapital (50.000 DM) 
um mehr als 200%, sind Sie Profi-Börsenspekulant. 
Die ‘Rems‘ mußten bei diesem Programm ebenfalls 
wegfallen, weil die Variablen einen relativ großen Teil 
des Speichers in Anspruch nehmen. 


IHRE PRIVATE 
KLEINANZEIGE 
IST KOSTENLOS 
IN DER 
COMMODORE--WELT 
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BOERSE 

10 rem boerse =================015 <c00> 
29 rem (p} commodore welt <op> 
30 rem ===============2======2===2== <ng> 
40 rem (c) by m. flor <fa> 
58 rem neumuenster <po> 
62 rem <ah> 
78 rem basic v3.5 <nl> 
88 rem c16/116/plus4 <ki> 
980 rem ============-=2============== (jg> 
100 gosub 2398 <fe> 
118 bs$l1)=" mr.ca$h":k( 1)=10002020 <ch> 
128 bs$(2)=" johann schilling":k(2 
)-802028 <no> 
130 bs$(3)=" senor peseta":k(3)=68 

2u00 <gc> 
148 bs$(4)=" monsieur franc":k(4)= 
4002008 . xma> 
158 bs${5})=" olaf kronenberg":k[5) 
=2022008 <gh> 
168 bs$(6)=" lord pfund":kf{ 6) =82829 

2 <on> 
178 bs$[ 25=" sir biLlE"rk -52292 of> 
188 ta=9:y=21 . q=32: ke aan, b5$ 
="":yolß: cola r8d,1:color4,1:j=® <fo> 
190 aa$l 1)="(o)copyright by matthi 

as flor 1986" <je> 
209 aa$(2)=b3$+"taste druecken!"+b 
5$+b4$ <aj? 
218 e$(!}="anteile kaufen"+b3$ <gb> 
228 e$(?2)="anteile verkaufen" <il> 
238 e$l3)=" "+zZI$+zed+tzoß+rzig+" en 

de "+z1$+zo$+tze$+z3$+b2$ <ka> 
248 ifpethen262 <pl> 
258 vol8:dimsk${ 16) ,‚w( 16) ‚m( 16) ‚el 

16) ,t( 16) <hb> 
268 fori=1toi6:w(i)=129:m{li}=1898: 
e(i)=2:next <pc> 
270 ak$l 1)="aeg"+bd$ Ti 
280 ak$(2)="basf"+b5$+n4H <ne> 
290 ak$( 3)="bayer"+b4$+bd$ ecg> 
328 ak$(A)="bp "+bd$ <d4j> 
312 BR RUE d$ hf > 
328 ak$(6) ="csommodore"+b4 <bo> 
338 ak$( 7)="conti-gummi"+b2$ <ic> 
340 ass B).-"daimler"+bö$ <ah> 
358 ak$(9)="deutsche bank" <ig> 
368 ak$( 12)="ibm"+bd$ <ct> 
370 ak$(11)="karstadt"+5b5$ <ih> 
380 ak$l'2)="porsche"+b6} ep> 
399 ak$l 12),=" preüssag"+b5$ <mj> 
480 ak$( 14)="siemens"+b6$ <cog> 
418 ak$( 15) ="thyssen"+668 <ıl> 
428 ak$l 16)="vw "+bd$ <ju> 
438 color4,1:color®,1:color!,2,5:g 
osub4498:g0t0478 <1p> 


448 scencelr:fory=1t023:char,1,y,z25$ 


+bz$+b4$+52%+b3$+25$:next 

458 fori=1t038:char,i,8, z5$:next 
468 fori=1to38:char,i,23,z25$:next: 
return s 

478 char, ?5,2,"wertpapier" 

488 char ‚5,4,07$+"q g"+bds+"gQ" 

498 char,5,5,"0099"+63$+"Q9Q"+b2$+ 
"QQAQ"+b3$+"QAAQ QaQaQ" 

580 char ,5,6,"Q"+b3$+"Q Q"+b3$+"Q 
Q"+b3$+"Q 9 Q"+b3$+"Q" 

518 char,5,7,"Qa9QQ"+b2$+"Q"+b3$+"Q 
aaaa"+b35+"QQQ"+b2$+"QaQ" 

528 char,5,8,"Q"+b3$+"Q Q"+b3$+"Q 
g"+b2$+"Q"+bA4$+"q Q Q" 

538 char,5,9,"QQQ9Q"+b3$+"AQQ"+b2$+ 
"Q"+b3$+"Q Q96Q"+b2$+"QAQQ" 

548 char,S5, bz$+"Q" 

550 char, '2, a EL RLEEIBIEIBIEJEIEIRIE 


" CCCCE"+zd$ 


568 char, 19, 12,"B"+b5$+" 
+b5$+"B" 

578 char, 10,13,"B $$"+b2$+"8"+23$+ 
ze$+zoß+z!$+zoß+zeß+z38+"B"+b2$+"$ 
$ B" 

538 char, 18, 14,"3"+b5$+"B"+b2$+"ib 
m"+5b2$+"8"+55$+"B" 

590 char, 10,15,"8"+b5$+"B aktie B" 
+b5$+"B" 

628 char, 18,16,"8 $$"+b2$+"8"+22$+ 
zmd+zn$+rnS+z1$+rf$+zndtzmg+tz2g+"g 
"+b2$+"$$ 8" 

619 char, 12, 17,"3"+b5$+"JECCCCEEK' 
+55; "Bi" 

628 char, !92,i8 
LECCE"+zZs$ 

639 foru=stito2:d=ß:h=-1:fort=1t0588 
ınext 

8a ifd=ithenh=h-1:ifhsdthenh=ß 
659 ifd=dthenh=h+i:ifh>sthend=et:h= 
6 

660 color!,2,h:ifh=sBandd=1thencolo 
KR a | 

rtyt 

670 char, 3,20,3a$(u) 

688 fort=1to1B%:next:ifh=sbandus2th 
enfort=1:o!202:next 

598 ifh=Sandustandd=!thengosub2342 
720 ifh=Bandd=!Tthen?29 

719 20t0648 

722 next 

739 sound1,944,5:50 
749 ker 

750 gosub1422:4=d 
760 sonchr: golsrd,? 
779 Ben gro 
dem" +bh4$+ igene"+b2$ 


UCECCEEEI" 


„ZuSr  CEEGEEBEBEEECE 


So bh 


208 ee aktie"tsb4ß+h48+"w: 


BOERSE 


rt"+b4$+"markt"+b 
92 printlb$rn$b 
st.)"b6$"(st.)"+b2$ 


RD 


5TtB fFori=-1tol6:char, 


» m 


S$+"anteile 
dSbag"( dm) "4Hag+"( 


ein EREREEN" ak6La) 


Sid next 
328 tg=R:fori= 


J)#3) :tg=tg+tl(i) 


‚it2,1b$:prin 


1t016:t(i)=int(rnd{[® 


538 Fe es ur ber 


enw(li)=w(i)-int(ernd( 
848 iftli) 
‘)=38) +20 
8580 next:y= 
a+1 
868 
878 
8838 
898 
992 
912 
920 char, 
938 char, 1,22,e$(2) 


printhe$lb$rn$ta 
ifta>31then195B 
ifk< 


948 char,1,23,e$(3) 

952 okan 0,91 ‚rn$+b 

t$ 

968 char, 22,22,rn$+bk $+"ko 


intusing"#HAHRHH";K,:p 
978 gosub1312 

geB do:geta$ 

998 ifa$=c4A$theny=y+i 
:ify>23theny=21 

1808 ify>21thenchar,] 
e$(y-21) 

1818 ify=21thenchar,! 
$(3) 
1220 
1038 
1248 loop 
1858 char,22 
rintusing "HHHHHHH";K 
$ 
1268 
1078 
1080 
1290 
3:ifs>19thens=4 


char, 


ifx=3then8B28 
do:getb$ 


1109 ifb$=chr${ 13)thenz=s-3:exit 
‚19,1b$+ak$( 16 


1118 ifs=4Athenchar, | 


2i:w=ßre=d:m- 


-1290200then!6ßß 

iftg>16thent$="steigend" 
iftg<e16thent$="fallend " 
iftg=16thent$="stabil"+b2$ 
1,21 ,wh$+rn$+e$l 1)+rf$ 


ifk<dthenk=k+int(k/2) 


ifb$=c4$thens=s+1 


+28 
nase 


ıx=RA:tart 


k$+"tendenz: 


Ba 
dm" 


‚22,rn$+bk$+"konto:" 


:sound!, 


:sound1,944,2 
‚y=1,wh$+rrf$#+ 
‚2e3,wh$trf$te 


‚y‚rn$+wh$+te$( y-28) +rf$ 
ifa$=chr$( 13)thenx=y-2B:exit 


:Pp 


print" dm“rf 


948, 


)vest:w=1:m=1:i1=16:gosub1320:gosub 


1358:gosub1388 


1128 ifs>4thenchar, 1,s-1 


-4) :e=1:w=1:m=l 
sub1358:gosub 1388 
11380. char, 1 
Y:e=1:printrn$; 
ntrn$; 


‚lb$+tak$(s. 
:i=s-4:gosub1328:g0 


„s,rn$+ak$( s-3) :w=1:m=1 
:i=s-3:gosub1328:pri 


<ac>? 


<pi> 


<nn> 
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1148 
1158 
1168 
as$:g=32 

11729 g=32: dochar ;g, 
:getkeyaß: sound1,944 


gosub 1358: print 
loop 


""ras$=left$(a 


3 


chr${[ 13) th 
Et "o 
UNE 


EEE 
Dmwmu nm Dorn »- 
= h _. 
ro. 8 © ou X 
u o Me T = 
+3 


39% 
< 

Du 

NR 


Las$)} 
:20101178 
'x=2andan>el z) 


OO Mm DD 


oo BON RN Mm 7 


Bu 
ıkek-wLz)* "on 


BTL Sr 
cH 
7 


m NM > 


ifx=2thene(z)=e 
ık=k+w(z)* 


von 


| 5 = N 
ID 0 


a 
N 

oo. u1 +0 
8 

mn 

[eo] 

+ 

[e} 

D 

es) 

je®} 


ac 
no 


1318 fori- 
1328 char, 
##";w(i) 

1338 ifw=iIthenreturn 
1342 next:fori=1to016 


1t016 


1358 char,22,i+2,1b$: 


HA" ;m(i) 
1360 ifm=- 
1378 fori=1to16 


1380 char,31,i+3,1b$: 


##",eli) 

1398 ife=ithenreturn 
1488 next 

1410 return 

1420 color1,2,6:gosu 
1438 an ee sin 
ekannt ? (j/n) "+rf$ 
1440 a$l1)= "durch 50 
on versuchen" 

1458 a$(2)="sie moeg 
ld zu erwirt-" 


1460 a$(3)="schaften, 
ien guenstig" 

1478 e$(4)="kaufen u 
essen." 


1480 a$(5)="aber ach 
r verzinsung”" 


char, 22,223,bk$+" 


:ifx= 


14,i+3,1b$: 


ithenreturn: 


rn$; :gosub1388 
wieviele:":ge 


23, rn$+"?'"+rf$ 
ee, 953; 


ifa$=chr$(28)andg>22thenchar, 


59,082) :9=q-1 


enexit 
"then117® 
gsö6theng=gt+t!: 
1andan>m( z)th 
thengetast$:got 


(z)+an:m{z)=m( 


(z)-an:m{ z)=m( 


printusing"## 


printusing"## 
elsenext 


printusing"## 


b448 
d die regeln b 


ersenspekulati 
lichst viel ge 
indem sie akt 
nd wieder abst 


tung! bei eine 


<bj? 
<pb> 


<kf> 


<mc> 


BOERSE 


1498 a$(6)="der 
ennen sie" 

1500 a$(?)="leicht bankrott gehen. 
sie haben nur" 

1518 a$(8)="einen monat zeit...tas 


schulden um 52% ko 


te druecken!" 

1520 fort=28to8 

1538 h=-1:d=® 

1548 ifd=1andh>dthenh=h-1 

1558 ifh=Bandd=1thencolor1,1:goto 
588 

1568 ifd=dthenh=h+1:ifh>6thend=l:h 
=6 

1578 color1,2,h 

1588 char,3,12,a$(t) 

1598 forr=1to18®:next:ifh=6thenfor 


r=1t01088:next 

1608 ift=Bandh=6thengosub 1642 

16138 ifh<=Bandd=Ithennext:else1548 
1620 getkeya$:sound!,944,5:sound1, 
953,5 

16380 return 

1640 poke239,0:getkeyb$:sound!,944 
‚5:sound1,953,5 

1658 ifb$="j"then?768 

1668 ifb$="n"thenreturn 

1670 goto1648 
1688 printc1l$:color4,1:color®,1:co 
lor1,8,6 

1698 printb6$rn$b3$rf$b7$"ihre ban 
k hat ihnen" 

1708 printb6$rn$b3$rr$ 

1718 printb6$rn$b3$rf$b7$"den geld 
hahn zuge-" 

1728 printb6$rn$b3$rf$ 

1738 printrn$bd$b5$rf$" dreht.sie 

haben" 

1740 printrn$bd$b5$ 

1758 printrn$bd$b5$rf$abs(k)"dm sc 
hulden!" 

1768 printb6$rn$b3$rf$ 

17780 printb6$rn$b3$rf$b7$"die phys 
ische belast-" 

1788 printb6$rn$b3$rf$ 

1798 printb6$rn$b3$rf$b7$"ung war 

zu gross fuer" 

1808 printb6$rn$b3$rf$ 

1818 printb6$rn$b3$rf$b7$"sie.sie 

waehlten den" 

1820 printb6$rn$b3$rf$bd4$b3$b3$ym$ 
" "ym$" "ym$ 

1838 printb6$rn$b3$rf$b7$"freitod" 
b2$"B B B" 

1848 printb6$rn$b3$rf$ 

1858 printb6$rn$b3$rf$ 

1868 printb6$rn$b3$rf$ 


<fg> 
<ji> 


<pc> 
<ja> 
<oo> 
<cl> 


<li> 


<pj? 
<ma> 
<gf> 


<nf> 
<hu> 
<eo> 


<cj? 
<fg> 


<em> 
<ig> 
<ol> 
<xca> 


<cf> 


<id> 
<io> 


<in> 
<cf> 


<cg> 
<cd> 


<ef> 
<chb> 


<bf> 
<jii> 
<af> 
<mg> 
<dj> 


<ef> 


<nj?> 
<ck> 
<pe> 
<kk> 


100 


1870 
1830 


arintb6$rn$b23$rf$ 
printb6$rn$b3$rf$ 

1890 fort=1t01998:next 

1988 restore:fort=1to1l:reada,b,c: 
sound1,a,b:sound2,a+5,b:forr=1Itoc: 
next:next 

1918 data262,35,558,262,38,1,169,2 
5,318,262,48,120,383,30,120,345,25 
‚1408,345,35,128 

1928 data262,30,450,262,35,1,169,3 
0,318,262,6®8, 1 

1930 fort=1to188@:next:char1,32,23 
‚rn$+">return<"+rf$:geta$:ifa$<>ch 
r$( 13) then 1938 

1948 sound1,944,5:sound1,953,5:pe= 
1:g0t0188 

1958 color4,6,3:color®d,1,3:i=8:m=® 
1968 printrn$cl$gr$c4$" *** die be 
sten boersenspekulanten: *** "rf$ 
1978 fori=1t07:char ,1,1*2+1,"": pri 
ntusing HAHHHRHHRHHRHHRHR" ,bs$li), 
k(i)," dm":next 

1988 ifj=1thengosub2298 

1998 ifj=1then2958 

2008 ifk>kK(7)then2080 

2018 gosub2288 

2828 print:printc4$" tut mir leid 
sie haben zu schlecht " 

2030 printc4$" gewirtschaftet. fol 
glich duerfen sie" 

2848 printc4$" sich "rn$"nicht"rf$ 
" eintragen..." 

2858 char,31,23,rn$+">return<"+rf$ 
:3j=08 

2068 getkeya$:sound!,944,5:soundl, 
953,5:ifa$<>chr$( 13) then20608 

2078 pe=1:g0t018® 

2080 forr=-520t01028stepäS:soundl,r, 
i:next 

20898 print:printc4$" sie sind lege 
nde geworden. sie sind" 

2100 printc4$" einer der besten bo 
ersenspekulanten!" 

2118 form=1t07 

2128 ifk=>k(m)theni=m:goto2148 
2130 next 

2148 char, 1,22,"ihr name :" 

2150 form=?toi+istep-1:k(m)=k(m-1) 
:bs$(m) =bs$(m-1) :next 

2168 kKli)=k 

2170 bs$=" ":x=12:do 

2188 char,x,22,rn$+"*"+rf$ 

2198 ifx<12thenchar,x,20," "ıx=x+1 
:g0t02188 

2200 getkeya$:sound1,944,5:soundl, 
953,5 


<ho> 
<cj? 
So 


<ld> 


<hg> 


<dl> 


<]f> 


<]li> 
<ad> 


<1lh> 


<bh> 
<cn> 
<hf> 
<np> 
<pp> 


<pg> 


<]f> 
<li> 
<ki> 


<fc> 
<00> 


<dg> 
<ijo> 


<ol> 
<eHn> 
<jn> 
<dg> 
<mk> 


<hf> 
<ih> 
<fm> 
<im> 


<mn?> 


<np> 


SOERSE 


2218 ifa$=chr$( 28) thenchar1!,x,22," 
":bs$=left$(bs$,x-12) :x=x-1:goto2 
158 

2228 ifa$=chr$( 13) thenexit 

2230 char,x,22,a$:bs$=bs$+a$:ifx<2 

Sthenx=x+1:elseexit 

2240 loop 

2250 bs$(i)=bs$ 

2268 j=1:g0t01950 

2270 fForw=1to40B:next:forw=1toß:vo 

18-w:forv=1t0409:next:next:volß:ret 

urn 

2288 forr=18808t05908step-5:soundi,r 
‚l:sound2,r+1,1:next:return 

2298 restore2328:forr=1to12:reada: 

ifr=12thensound1,3,58:sound2,38+1,5 

d:gosub2278:goto231B 

2308 sound!,a,18:sound2,a+t1,1® 

2318 forg=1t015*1Q:next:next 

23280 data881,881,917,911,897,881,8 

64,864,854,834,854,818 

2338 return 

2348 restore23978:forr=1to4ß:reada: 

ifr=40thensound1,a,58:sound2,a+1,5 

3:gosub2278:g0t02368 

2358 sound1!,a, 18:sound2,a+1,13:for 

g=1t011*15:next 

2360 next:return 

2370 data7904,739,704,739,739,778,7 

98,810,834,834,810,834,854,854,864 

‚854,864,881,881,897 

2380 data881,897,911,911,917,917,9 

11,917,911,897,897,897,897,881,864 

‚854,854,834,854,810 

2398 rem nachspann 

24080 rem * farbcodes/steuercodes * 

2418 wh$=chr$( 885) :c4$=chr$( 017) 

2428 rn$=chr$( 818) :he$=chr$( 019) 

2430 gr$=chr$( 838) :bk$=chr$( 144) 

2448 rf$=chr$( 146) :c1$=chr$( 147) 

2458 1b$=chr$( 154) 

2460 rem *#* zeichensatz/graphik * 

2478 z1$=chr$( 162) 

24808 z2$=chr$( 163) :z3$=chr$( 164) 

2490 z5$=chr$( 166) :zc$=chr$( 173) 

2508 zd$=chr$( 174) :ze$=chr$( 1975) 

2518 zf$=chr$( 176) :zm$=chr$( 183) 

2528 zn$=chr$( 184) :zo$=chr$( 185) 

25308 zs$=chr$( 189) :ym$=chr$( 219) 

2540 b2$=" "+" ":53$=b2$+" " 

2550 bA$=b3$+" ":65$=bA4$+" " 

2560 b6$=b5$+" ":57$=b6$+" " 

2578 bd$=b5$+b5$:bz$=bd$+bd$ 

2588 return 

2598 rem boerse 

2608 rem 12277 bytes memory 


<am> 
<jd> 


<mi> 
<hn> 
<dp> 
<ib> 
<el> 
<mg> 
<mb> 
<en> 
<lg> 
<mj> 
<ne> 
<mc> 
<gm> 
<bc> 


<af> 


<em> 
<mo> 
<ij> 


<bn> 


<bo> 
<cl> 
<cp> 
<bc> 
<pl> 
<ig> 
<ci> 
<e3a> 
<ki> 
<mf> 
<fb> 
<bi> 
<ag> 
<em> 
<pb> 
<jg> 
<mk> 
<dp> 
<pn> 
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SUPER- 
MIND 


Schärfen Sie Ihre Kombinationsfähigkeit durch 
Supermind — ein Denkspiel für Jung und Alt. Das 
Spiel Supermind entspricht dem Brettspiel Master- 
mind. Das Ziel des Spiels ist denkbar einfach! Aus 
acht verschiedenen Farben werden fünf wahllos 
herausgegriffen und, für den Mitspieler nicht sicht- 
bar, in beliebiger Reihenfolge gestellt. Der Mit- 
spieler muß nun, durch Kombinieren und Auspro- 
bieren, versuchen, den Code zu knacken. Nur ist 
nicht, wie beim Brettspiel, der Gegenspieler ein 
Mensch aus Fleisch und Blut, sondern Ihr Compu- 
ter!! Dieser gibt Ihnen nun die Möglichkeit, den 
Code in zehn Durchgängen zu lösen. Nach jedem 
Durchgang bewertet der Rechner Ihren Vorschlag 
mit Hilfe von weißen und schwarzen Stiften. Da- 
bei bedeutet weiß: Richtige Farbe am falschen Ort; 
Schwarz: Richtige Farbe am richtigen Ort. Die An- 
ordnung der schwarzen und weißen Stifte ist natür- 
lich nicht mit der Reihenfolge der „Farbstifte“ 
identisch. — Soweit die allgemeine Spielregel —. 
Nach dem Starten mit RUN erscheint zuerst das 
Titelbild, dort geben Sie Ihren Namen. ein. Nach 
Betätigen der RETURN-Taste können Sie zwischen 
zwei Levels wählen. Level 1 bedeutet Farben ein- 
fach, das heißt — in einer Reihe können Farben 
nur jeweils einmal vorkommen. — Level 2 ist Far- 
ben doppelt — das heißt: Farben können in einer 
Reihe auch mehrmals (bis fünfmal) vorkommen. 
Als nächstes können Sie noch die Spielregel, durch 
Drücken der „J‘-Taste, abrufen. Es erscheint eine 
kurze Spielbeschreibung, die Sie durch Betätigen 
der SPACE-Taste wieder verlassen können. Nun be- 
ginnt das Spiel. Auf der linken Hälfte des Bild- 
schirmes wird das Spielfeld aufgebaut. Unter der 
Reihe des Spielfeldes, das momentan mit Farb- 
stiften besetzt werden kann, steht ein kleiner Pfeil. 
Diesen Pfeil können Sie mit Hilfe der CURSOR- 
Taste nach rechts oder links bewegen. Durch Drük- 
ken der Taste, die dem Anfangsbuchstaben der 
jeweiligen Farbe entspricht, erscheint oberhalb des 
Pfeiles der farbige „Stift“ für Schwarz/Weiß-Seher 
ist der „‚Farbstift“ noch zusätzlich mit dem An- 
fangsbuchstaben beschriftet. Sie können jederzeit 
in der betreffenden Reihe einen schon ausgedruck- 
ten Farbstift ändern, indem Sie den Pfeil mit Hilfe 
des Cursors unterhalb der falschen Farbe bewe- 
gen und die Farbe ändern. Sie können einen Farb- 
stift auch durch Drücken der SPACE-Taste aus dem 
Spielfeld entfernen. Wenn Sie Ihren Farbvorschlag 
bewertet haben wollen, drücken Sie die RETURN- 
Taste. Die schwarzen und weißen Stifte erscheinen 
nun rechts neben ihren Farbcodes. einmal bewer- 
tete Codes können nicht mehr geändert werden. 
Sollten Sie den Farbcode nicht erraten haben, 
springt der Pfeil in die nächste untere Reihe. Dort 
können Sie dann durch Umstellen oder Hinzunah- 
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IB rem mastermind==============0/6 

28 rem (p) commodore welt 

38 rem 

48 rem (c) by norbert schmelzer 

58 rem 

60 rem 

78 rem version 3.5 

88 rem c16/116/plus4 

90 rem ===============22==2======= 
1080 fFori=1t038:st$=st$+"#*":bn$=bn$ 

Er next 

118 bn$=bn$+" "+" " 

128 trap2358:printchr$( 142) :color® 
‚l:color4,1:vol8:scnclr 

138 rem ----------------------- --- 
148 rem grafik/farben in variabeln 
158 rem 
168 fora=1t06:po$( a) ="----------- ” 
:po(a)=@:next 

178 re$=chr$( 18) :ra$= chr$( 146): w$= 

chr$(5) :b$=chr$( 153) :r$=chr$( 28) :y 

$=chr$( 158) 

188 g$=chr$( 155) :p$=chr$( 151) :br$= 

chr$( 149) :bk$=chr$( 144) :cd$=chr$f 1 

7) :c1l$=chr$( 157) 

198 o$=chr$( 129) :cr$=chr$( 29) 

208 ye$=re$+y$+"y"+raß:ro$=re$tr$+ 
"r"+ra$:bl$=b$+re$+"b"+ra$ 

210 gr$=g$+tre$+"g"+raß:pi$=re$+tp$+ 
"p"+tra$:og$=o$+re$+"0"+raß:we$ß=w$+ 

re$+"w"+ra$ 

228 c1$=chr$( 177) :c2$=chr$( 67) :v$= 

er$+c1l$+"yrbgpowce " 

238 c$=chr$( 159) :cy$=c$+re$+"c"+ra 

$:sc$h=wg+"W" 

240 w1$=w$+"Q":w2$=re$+br$+"Q"+ra$ 

250 F$LB)=ye$:f$l1)=ro$:f$l2)=bl$: 

f$L3)=gr$:f$l4)=pi$:f$l5)=0g$:f$(6 

)=we$:f$(7)=cy$ 

260 c4$=ra$+w$+"W"+re$+br$+" ":r$l 

8)=sc$ 

278 c3$=chr${ 171) :c5$=chr$f 123) :c7 

$=chr$( 178) :c6$=chr$( 179) :1=2:4$(7 


ss=s=2=22= mess ssessesemmmmsmesescez 


J="c" 

280 q$l0)="y":g$l1)="r"ig$l2)="b": 
GSCD) ="g":0802)="p" :a8(5) ="0":9816 
Jeru" 

298 rem -------------------------- 
388 rem hauptprogramm 

310: DEM mean 
328 gosub1838:scnclr:x=2:y=2:z=1:p 


u=999:py=0:3=0:w=@:cs$="":10$="" 
338 rem -------------------------- 
348 rem zufallszahl fuer farben 
358 rem -------------------------- 
368 fora=1t05 

378 p=int(rnd( 1)*8) :fla)=p 

380 iflevel<>1then41® 


<lo> 
<op> 
<ng> 
<oa> 
<pd> 
<ah> 
<kk> 
<ki> 
<jg> 


<la> 
<bp> 


<mm> 
<hh> 
<dj> 
<jj? 


<ic> 
<bm> 
<co> 


<op> 


<nf> 


<lg> 
<na> 


<pm> 
<kl> 


<ae> 
<jp> 
<po> 


<ih> 
<bn> 
<hj> 
<me> 


<ca> 
<dk> 
<en> 
<ie> 
<en> 
<kk> 
<fc> 
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398 foraa=a-Itolstep-1:iff(la)=fl(aa 
)then3?8 


408 nextaa 

410 cs$=cs$+tg$(p) :lo$=lo$+Ff$lp)+" 
428 next:f1$=cs$ 

438 rem -------------------------- 
4480 rem spielbrett aufbauen 

aSl nem Fre 
460 printre$br$"UCCCCCCECCEE"c7$"C 


CCCCI"ra$ 

470 ford=ito1® 

488 printre$br$"B "c4$c04$c4$c4$c4$ 
"B"rag"WWWWW"re$br$"B" 

498 printre$br$c3$"CCCCCCCCCCt"c5$ 
"CCCCC"c6$ 

588 nextd 

518 printre$"B"left$(bn$, 11)"B"lef 


; t$(bn$,5)"B" 


528 printre$"B "ra$left$(bn$,9)br$ 
re$" B"left$(bn$,5)"B"ra$ 

530 printre$"JCCECCCCECEC"c1$"CCCC 
CK"ra$ 
548 rem 
558 
5689 
570 
5898 
598 
608 
618 
6208 
638 
648 
$ 
658 
int 


rem 
poke2023,22 

scnelr 

color1,2,4 

print" farbsymbole" 
print:print"y=gelb r=rot" 
print:print"b=blau g=-gruen"” 
print:print"p=pink o=orange" 
print:print"w=weiss c=cyan"cd 


print:print"cursor=auswahl":pr 
:print"return=bewerten" 


668 print:print"space =loeschen" 
678 char1,24,21,"high ":printusi 
ng"###"; pol 1) 

688 char1,24,19,"level "+str$(le 
vel) 

690 char1,24,23,"score :" 

708 rem ------------------------ -- 
710 rem schleife f. 18 durchgaenge 
728 rem -------7=------------------ 
738 forzz=1to18:p1=zz:co$="12345"” 


748 
{7} 
758 


gosub82Q:ifs=5thenzz=19:g0t076 


pu=pu-(48+( 3-level)*1B) 


760 nextzz 

778 ifs=5then 1498 

788 pu=B:g0t01498 

7908 rem -------------------------- 
828 rem steuerung f spielbrett 
810: ram Fräsen 
828 poke239,8 

8380 chari,x,y,re$+br$+chr$( 94) +ra$ 


<pc> 
<fk> 


<fo> 
<ci> 
<be> 
<mh> 
<ni> 


<mm> 
<ge> 


<o3> 


<ka> 
<bo> 


<fg> 
<dm> 


<fi> 
<eg> 
<gi> 
<eh> 
<bn> 
<he> 
<1k> 
<ih> 
<ei> 
<od> 
<ch> 


<kb> 


<fo> 
<ok> 


<mp? 


<cb> 
<ka> 
<ca> 
<km> 
<da> 
<oi> 


<hn> 
<kk> 
<ok> 
<mj? 
<no> 
<io> 
<bd> 
<jl> 
<mk> 
<cn> 
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548 
558 
368 
378 
880 


ifpu<dthenzz=1®8:return 
char! , 31,23,” 

color1,2,6 
printusing"###";pu:py=py+1 


pu=spu-.1:ifpu<ißthenifpy/1Q=in 


t(py/18)thensound1,408,5 


3890 
900 


918 
928 


938 
948 
9508 
960 
978 
988 
998 
12080 
1818 
1228 
1838 
1848 
1858 
1068 
1078 
1888 
1098 
1188 
1118 
1128 
1138 
1148 
160 
1158 
1168 
w=®d 
11708 
1188 
1198 
1208 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1298 
+1 
1388 
1318 
1 
1328 
1338 
1348 
1358 
1368 


rem 
gosub 1458 


geta$ 
ifa$=""then838 


k=instr(v$,8$) :sound1,988,5 
ifa$=chr$( 13) then 1428 


onkgosub1298, 1318 
ifk>2thengosub 1368 
g0oto838 

rem 


s=8:ford=1t05 
J3$td)=mid$lcs$,d,1) 
k$ld)=mid$(co$,d, 1) 
ifk$(d)<>j$(d)then 1058 
s=s+1:mid$(cs$,d, 1)="®" 
nextd:cs$=f1$ 

rem 


rem 
w=8:ford=1t05 
fore=1t05 
1$le)=smid$(cs$,e,1) 


m$( d)=mid$(co$,d, 1) 
ifl$(e)<>m$(d)then1158 
w=w+1:mid$(cs$,e,1)="8":goto1 
nexte 
nextd:w=w-s:cs$=f1$:ifw<dthen 
rem ----------------- = - 
rem erzeugung der schwarzen 
rem und weissen stifte 

rem => 


w3$="":w4$="":ifw=@then 1238 
fora=1tow:w3$=w3$+w1$:next 
ifs=dthenreturn 
fora=1tos:w4$=w4$+w2$:next 
return 

rem 
rem 
rem - 
ifx<1ßdthengosub145B:x=x+2:z=z 


return 
ifx>2thengosub1458:x=x-2:z=z- 


return 


mid$(co$,z,1)=a$ 


<ce> 
<mp> 


. <hg> 


<bc> 


<ga> 
<be> 
<mh> 
<jl> 
<oo> 
<df> 
<pf> 
<f1l> 
<ni> 
<ek> 
<ia> 
<pj? 
<oh> 
<mm> 
<fk> 
<gk> 
<kh> 
<ij> 
<no> 
<ec> 
<fh> 
<le> 
<ep> 
<eb> 
<jp> 
<jl> 


<mh> 
<fe> 


<ka> 
<dg> 
<oi> 
<mk> 
<fb> 
<ba> 
<ai> 
<ge> 
<mj> 
<fl> 
<hn> 
<It> 
<fk> 


<el> 
<ma> 


<cc> 
<oi> 
<ml> 
<fb> 
<ig? 
<cm> 
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1378 char1,x,y-1,f$(k-3) :ifx<1dthe 


ngosub 1450: x=x+t2:z=z+1 

1388 return 

1390 wem Fe 
1408 rem ausgabe schw.+wei. stifte 
1418 rem === -2-s222 nn 
1428 gosub998 

1438 char1,18-w,y-1,w3$:char1,13,y 
-1,w4$ 

1440 y=-yt2:x=2:z=1:return 

1458 chari,x,y,re$+br$+"C"+ra$:ret 
urn 

1468 rem ------------------------- 
1470 rem abschluss mit aufloesung 
1480 rem ------ + 2-7 
1498 char1,2,22,10$:poke2923,19:sc 
nelr 

15808 


ifpu=sdthengesub 177®:print:pri 
nt:g0t01688 e 
1518 printw$" supermind 
1528 fora=1to1®8:sound1,328+a*5®, 18 
:sound2,588,5:sound1, 788+a*28,18:n 
ext : 

1538 print:printp$n$:print:print"d 


eine"cd$ 

1548 print"punktzahl:";:printusing 
"A4##" ;pu:po(6)=pu:po$(6)=n$:print 

1550 rem SFr 

1568 rem top/5 sortierroutine 

15978 rem -------->--- mm nn nn 

1588 flag=® 

1598 fora=1t05 

1688 ifpo(3)>=po(a+1)then1639 


1610 gi=po(a):g1i$=po$(a}:po$(a)=po 
$(a+1):po(la)=po(a+1):po(la+1)=qg1:po 
$la+1)=g1$ 

1620 flag=1 

1638 nexta 

1648 ifflag=1then 1588 

16580 rem 
1668 
1670 rem 
1688 print:printy$" = 
"print 

1698 print:print:fora=2to5:print" 
"w$cl$a"."po$(a)tab( 36) y$;:printus 
ing"###";po(a) 

17088 print:next 
1718 print:printp$" 
In" 

1728 ifl>?thenl=B 
1738 color1,3,1:char1,23,9,"* hisc 
ore *" 
1740. color] ,7,L:char? ‚„2u, 11,"" pri 
nt"1 ."po$( 1)tab( 36) ;:printusing"# 
##" ;pol 1) 

1758 geta$:ifa$="n"thenprintchr$f( 1 
4) :end 


hiscore * 


neues spiel j 


« 
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1768 ifa$="j"then32d:elsel=1+1:got 2158 print"tet sie der rechnerlein 


017298 <fg> beispiel:" <ol> 
1778 print:printb$n$:print" du has 2160 print"sie haben "f$C0)" 
t":print" leider verloren":print: "FHl2)" "FELCAI" "FHCO)" "FRC7)cd$ <ak> 
print <hp> 2178 color1,2,4 <fh> 
1780 fora=500t0400step-19:sound1,a 2180 print"richtig ist "f$[0)" 
‚5:sound2, 700,5: sound1,a-188,1®:ne "F$L6)" "FHL2)" "FREI" "F$C5) <gg> 
xt <jn> 2198 color1,2,4 <ek> 
1798 return <jg> 2208 print"sie bekommen 1 schwarze 
TOOB: nam Terre <ii> n und 1 weissen" <dd> 
1818 rem titel <ol> 2248 print"stift.schwarz ist richt 
1928 Ken - ee nn <hi> ige farbe am " <dm> 
1838 scnclr <ec>? 2228 print"richtigen ort.weiss bed 
1848 printb$re$bn$ <la> eutet richtige " <dh> 
1858 printre$" "st$" " <ad> 2238 print"farbe am falschen ort ! 
18608 fora=1t019:printre$" *"tab( 38 IL" <ci> 
)"# ":next <kp> 2248 print"das spiel endet wenn si 
1878 printre$" "st$" " <cc> e alle farben" <hg> 
1880 printre$bn$ <dp> 2258 print"an der richtigen stelle 
1898 char1,13,4,y9$+t"supermi plaziert haben" <mc> 
n d" <og> 2268 print"-nach 1B versuchen - od 
1988 char1,6,19,0$+"(c) 1987 by no er wenn die zeit" <ok> 
rbert schmelzer" <cp> 2278 print"abgelaufen ist !!" <np> 
1918 printp$ <bc> 2288 print"------ und nun viel kopf 
1928 char1,8,8,"":n$="":input"dein zerbrechen------ Y <ee> 
name"; n$ <dk> 2298 printcd$re$b$tab( 18) "druecke 
1938 ifn$=""then1928 <hm> space" <ej> 
1948 iflen(n$)>11thenn$=left$(n$, 1! 2308 geta$:ifa$<>" "then2308 <fo> 
8) <cm> 2318 return <km> 
1958 char1,5,18,y$+"level 1 = farb 2328 rem --------------------- <la> 
en einfach" <no> 2330 rem fehlerroutine <md> 
19608 char1,5,12,"level 2 = farben 2340 rem = nn <dh> 
doppelt" <ip> 2358 char1,8,24,"" <fb> 
1978 inputni$:level=val(ni$) :iflev 2368 printchr$( 14) :color1,2,5:prin 
el<>iandlevel<>2then 1958 <cd> terr$(er)" fehler in zeile "el:hel 
1988 char1,8,14,b$+"die spielregel p:end <bd> 
j/n" <bo> 2370 rem =wmenunnensaunnnnnennnunne (gi> 
1990 getkeya$:ifa$="j"then2048 <gb> 2380 rem 12277 bytes memory <mm> 
20080 ifa$<>"n"then1990d:elsereturn <ng> 2398 rem 07109 bytes program <pl> 
2BI0 nem Fre nn <nb> 2408 rem 08441 bytes variables <hh> 
2028 rem spielanleitung <fm> 2418 rem 808404 bytes arrays <hl> 
2030 nem 2 ee <ga> 2428 rem 08862 bytes strings <cd> 
2048 scnclr <oh> 2438 rem 83461 bytes fre(®) <fo> 
2858 printtab( 13)b$"supermind" <fj> 2448 rem ========================= c<ko> 
20868 printtab( 13) r$"--------- 4 <kl> 
2078 printy$"anleitung:" <ki> 
2088 color!,2,4 <km> 
2898 print"sie muessen versuchen 5 SUPERMIND 
farben" <eh> j 
2100 print"so zu erraten,dass sie me von anderen Farben Ihren Farbcode so ändern, 
: " daß Sie dem zu erratenden Farbcode immer näher 
en a En eek 2 RR kommen. Durch Vergleich mit vorher bewerteten 
a = re Fi A ee P Reihen haben Sie die Möglichkeit, den Code zu 
x knacken!! Nach jeder Reihe erhalten Sie einen 
puters ueber- <bm> Punktabzug, bei Level 1 sechzig Punkte und bei 
2130 print"einstimmen.sie haben 1® Level 2 fünfzig Punkte. Es gibt drei Arten, ein 
versuche dieses" <pm> Spiel zu beenden: 1. Sie erraten den Farbcode; 
2148 print"zu erraten.nach jedem d 2. Sie haben 10 erfolglose Durchgänge; 3. Der 
urchgang bewer-" <ka> Punktestand ist auf Null gesunken. 
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BARACUDA 


Mit diesem Adventure stelle ich Ihnen ein Spiel vor, 
das nicht nur von reinem Text, sondern auch von va- 
riablen Grafik- und Soundeffekten lebt. Die Hires 
Grafik konnte ich aufgrund Speicherplatzmangels 
nicht einsetzen, aber ich holte alles raus, was die Gra- 
fik des Textmodus hergab. ‚„Rems‘ habe ich zu Gun- 
sten des Programminhaltes nur die allernötigsten 
eingefügt. Auf Grund des Speicherplatzes im C 16 
habe ich auch manche Zeilen (If-Abfragen) recht voll- 
gepackt, doch auch wenn diese Zeilen über 80 Zei- 
chen zu haben scheinen, es erscheint bei keiner ein 
„String too long-error“, selbst wenn man sie ohne 
Befehlsabkürzungen mit Return integriert. 


I. Zum Spielverlauf: 
Sie sind in den Krater des Vulkans Baracuda gefallen 
und müssen sehen, daß Sie schnellstens wieder her- 
auskommen, denn der Ausbruch steht kurz bevor. 
Der Krater hat viele Gänge und man weiß nie, wel- 
cher der jeweils kürzeste Weg ist. Es gibt aber einige 
Monster, die ihre Fallen in vielen Gängen ausgelegt 
haben und wenn Sie diesen Ungeheuern in die Finger 
geraten, wird es schwer werden, die Aufgaben zu be- 
stehen, um nicht getötet zu werden. Haben Sie es je- 
doch geschafft, an einen Ausgang des Vulkans zu ge- 
langen (vielleicht durch die Hilfe des smaragdgrünen 
FR), erwartet Sie ein lautes und farbenfrohes 
inale. 


II. Programmaufbau: 

Zuerst das Hauptprogramm. Dann die Spielunterpro- 
gramme: (Buchstabenraten), (Grausame Gabler), 
(Namenchanger), (Loserbuster), (Freßmonster), 
(Steinschlag), (Wilde Schweinchen) und (smaragd- 
grünes Einhorn). Die Unterprogramme zum Zeich- 
nen des Vulkans, des Finales und die zahlreichen 
Unterunter- und Unterunterunterprogramme habe 
ich bei dieser Aufzählung nicht berücksichtigt. 


III. Detaillierte Erklärungen zum Programm: 

Durch den STRAP“-Befchl habe ich eine Möglichkeit 
für diejenigen Leute eingebaut, die es leid sind, den 
Vorspann und die Einleitung zum xten Mal zu ertra- 
gen. Startet man das Programm mit “RUN“ und 
drückt danach die “Run-Stop-Taste‘‘, springt der Com- 
puter sofort in Zeile 460 ohne Verlust der definierten 
Strings. 

Der Pokebefehl setzt die Anzahl der im Tastaturpuf- 
fer vorhandenen Zeichen auf 0. 

Wenn die in Zeile 560/570 erzeugte Zufallszahl 9 

oder 10 beträgt, wird die Schleifenvariable, die die 
Zahl der zurückgelegten Schritte anzeigt, um 1 erhöht. 
Ergebnis: Sie kommen einen Schritt weiter, ohne daß 
irgendetwas passiert. 

Wenn die Zufallszahl zwischen 1 und 8 beträgt, springt 
der Computer in das entsprechende (Spiel-)Unterpro- 
gramm. 

Die Zuweisung (“String“=STR‘String‘‘(15-T)) wan- 
delt die Zahl (15-T) in einen String um. Das ist not- 
wendig, da die Anweisung ““Char“ die hier sehr prak- 
tisch ist, nur Text in Hochkommas oder eben Strings 
akzeptiert. 

Der String FE $ taucht am Ende eines jeden Spieles 
auf. Hat man das Spiel bestanden (gewonnen), erhält 
er den Wert ‘“R”, hat man versagt den Wert “F”. Im 
ersten Fall geht das Programm normal weiter, im 
zweiten jedoch wird der Computer zurückgeschickt 
und endet damit. Die Anweisungen in diesem Ab- 


schnitt bewirken, daß zweimal ‚„gewürfelt‘‘ wird. 
Hier wird das gemeine Lachen des grausamen Gamb- 
lers am Anfang und am Ende, falls man verloren hat, 
produziert. 

Eine Zufallszahl wird zwischen 3072 und 4072 (Bild- 
schirmspeicher) erzeugt. In den Zeilen danach wird 
ausgeschlossen, daß das spätere Wort, dessen Position 
durch “AD“ bestimmt wird, zu nahe an den rechten 
Bildschirmrand gedruckt wird, so daß das Wort nicht 
zweigeteilt auftritt, außerdem ist es optisch auch 
schöner. Es wird ein zufälliges Buchstabenpokecode 
erzeugt, der dann an die vorher bestimmte (AD) Adres- 
se gepokt wird. Der Name, den der Spieler für den 
richtigen hält, wird eingelesen und mit dem vorher 
zufällig bestimmten Namen verglichen. Dann springt 
der Computer in das jeweilige Unterprogramm zum 
Zeichnen einer Karte, das durch eine Zufallszahl be- 
stimmt wurde. Übrigens stehen bei diesem Spiel prak- 
tisch zwei vollständige Herzsequenzen zur Verfügung, 
da ich eine einmal aufgetauchte Karte nicht von der 
Liste „‚streiche‘“. 

Es werden die beiden Anfangsbuchstaben der zu er- 
ratenden Karte eingelesen und mit den tatsächlichen 
verglichen und ausgewertet. Es werden die Variablen, 
die bekunden, ob die Zahl für das jeweilige Freßmon- 
ster gefunden wurde, auf 0 gesetzt und die Zufalls- 
zahlen für die Monster determiniert. - 

Es werden die jeweiligen Zeichen auf den Bildschirm 
gepoket. Es geht einfacher, doch um das Basic V 3.5 
auszunutzen, arbeite ich hier mit “Trap“: Es wird 
eine Zahl eingelesen, die zwischen | und 7 liegen muß. 
Durch “Trap“ erscheint bei allen Fehlersituationen 
(z.B. “Run-Stop“ oder einem “Type Mismatch‘“) 
“Nur die Tasten von 1 — 7“. 

Es werden beim Bewegen der Monster die vorherigen 
Positionen gelöscht. Es werden durch die IF-Abfrage 
die Monster bewegt, oder wenn eine Zahl gefunden 
wurde, „gestrichen“. Es werden die durch Zufalls- 
zahlen erhaltene Bildschirmpositionen durch das re- 
verse Herz und “5*‘mal durch die Steine besetzt. 

Nun wird die „Herzposition‘ mit den jeweiligen 
„Steinpositionen“ verglichen. Bei Übereinstimmung 
sind Sie für den Computer gestorben. 

Wenn Sie den Ausgang des Vulkans erreichen sollten, 
freut sich ein Männchen mit Ihnen und hüpft Hampel- 
mannähnlich herum. Das Einhorn beschert Ihnen ein 
Weiterkommen von einem bis zu acht Schritten, wäh- 
rend es unter dem Text vorbeigaloppiert. 

Manche Zeilen enthalten Subroutinen, die so oft vor- 
kommen, daß ich sie als Unterprogramme integriert 
habe. 

Es werden der Vulkan gezeichnet und durch Zufall Zei- 
chen erzeugt, die der Vulkan zufällig „speit“. 


IV: Liste von Basic-Befehlen, die vielleicht nicht 
iedem geläufig sind: 

AB(X): Ein Text wird um X Positionen (0-255) 
verschoben gedruckt. 
GETKEY X “String‘‘: Das Programm wartet, bis eine 
1 pe wird (entspricht beim C-64 WAIT 
IF... THEN...:ELSE: IF-Abfrage mit Alternative. 
COLOR 1,X,Y: Die Zeichenfarbe (oder: 0-Hinter- 
grund; 4=Rahmen) wird auf die Farbe X mit der 
Helligkeitsstufe Y gesetzt. 
SOUND X,Y,Z: Der Ton wird mit der Dauer Z durch 
den Tongenerator X angesprochen. 
VOL(X): Ein Ton wird mit der Lautstärke X gespielt. 


Bitte lesen Sie weiter auf Seite 111 
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baracuda 
(p) commodore welt 


18 rem 

28 rem 
38 rem 

480 rem 

58 rem 

68 rem 

78 rem 

80 rem 

98 rem 
100 gosub4660 

118 r$=chr$( 818) :0$=chr$( 146) :f$=c 

hr$( 138) :g$=chr$( 131) 

128 es$=chr$( 0297) :ho$=chr$( 819) :z® 

$=chr$( 17?) 

138 trap328:gosub 1450 

148 fort=1t01888:next:color 1,1 
158 char1,39,22,es$+"b":char1,®8,13 
‚es$+"t":rem windowing 

168 scnclr 

170 print"sie armer teufel sind in 
den krater ge-":print 

188 print"fallen und muessen schne 
llstens hier ":print 

198 gosub4638 

208 print"raus,denn der ausbruch s 
teht kurz bevor!":print 

210 gosub4628 

228 print"sie koennen nach sueden, 
norden,westen":print 

238 print"oder osten mit s,n,w,o f 
luechten.":print 

240 gosub463B:scnclr 

258 print"aber vorsicht ! 
t viele monster":print 

268 print"und fallen in den gaenge 

n des vulkans. !":print 

270 gosub463% 

288 print"jede konfrontation gefae 

hrdet ihr leben!":print 

298 gosub4638 

308 char1,9,28,f$+"viel glueck ! ! 
!"+g$ 


(c) by martin purucker 


version 3.5 - 
plus/4 (c16/116+64kb) 


- es gib 


318 gosub4620 

328 printho$ho$:color 1,1 

330 xx=int(rnd( 1) *16) +5 

348 scnclr 

358 fors2=1toxx 

360 aa=xx-s2+1:poke239,8 

378 ifaa=dthenxx=s2-1:g0t0578 

388 print:print:print"sie muessen 


genau";aa;"schritte bis zum":print 
398 print"ausgang gehen !":gosub44 
58 

4088 scnclr:print:print"in welche r 
ichtung wollen sie gehen ? (s/n/ 
w/o)" 

418 getkey ri$ 

428 ifri$="s"orri$="o"thenri=int(r 


<oa> 
<op> 
ng> 
<kh> 
<pd> 
<ah> 
<kk> 
<eg> 
<jg> 
<gk> 


<jd> 


<kf> 
<je> 
<fm> 


<cm> 
<cj?> 


<he> 


<oj> 
<lb> 


<oi> 
<da> 


<li> 


<con> 
<bk> 


<ji> 


<gk> 
<ml> 


<jg> 
<em> 


<ih> 
<mg> 
<ga> 
<on> 
<jc> 
<pe> 
<fj> 
<bm> 


<mj? 


<jl> 


<gf> 
<ff> 
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nd( 8) #18) +1:g0t0458 

430 ifri$="n"orri$="w"thenri=int(r 
nd( 1) #18) +1:g0t0458 

448 print:print"depp !":fort=1t018 
B8:next:goro40® 

458 ifri=9orri=1dthens2=s2+1:goto3 
60 

460 ifs2=xxthen580 

478 onrigosub649,859, 1570,2020,345 
0,3828,4120,4318:color1,1 

488 ifri=?7then350 

490 iffe$="f"thenxx=s2-1:goto5608 
588 scnclr 

518 print:printtab(8) f$;"gratulier 
e !";g$ 

528 print:print"sie haben das aben 
teuer bestanden ! -":print 

538 print"es geht weiter !" 


6548 nexts2 


558 g0t0578 

568 print:print:print"tut mir leid 
‚sie werden eingeaeschert !":end 
578 scncelr 

588 print:printf$;"super - spitze 
- klasse" ;g$:print 

598 gosub4628 

600 print:print"sie haben es gesch 
afft I E F*ıprint 

612 print"ihr leben ist gerettet ! 


! 1":gosub4638:scnclr:gosub4198 
628 end 
530 Fan -- rn 
648 rem buchstabenraten 
b5U. rem Fr 
668 scnclr:print:print"ihr leben i 


st in gefahr ! - 
678 print:print"ihre einzige chanc 
e zu ueberleben ist,":print 

680 print"wenn sie aus den 26 buch 
staben in 15 " 

698 print:print"versuchen den rich 
tigen finden ! ! !":print 

788 printf$;"viel glueck";g$ 

718 b$=chr$(int(rnd( 1) *26) +65) 

728 fort=1t015 

730 getkey a$:vol8:sound!,98,5:ifa 
$=b$thenx=t-1:g0t0798 

748 c$=str$( 15-t) :char 1,5, 12,"noc 
h"+c$+" versuche ":next:print 

758 sound1,8,188:sound2,58®8, 188 
768 print:print:print"tut mir leid 


‚sie sind tot !":g0sub4628 

770 feg="f" 

788 return 

798 print:print:printtab( 18) f$; "gu 
uut !";g$ 

808 fFort=Bto5SBßB:soundi,t,1:sound2, 


t+588,1:next 
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28 gosub4458 

228 fe$="r" 

=38 return 

BRTEen -—----- - mn 
58 rem grausamer gambler 

BbB rem == ee eu an 
278 scnelr:print:print"ich bin der 


grausame gambler,und sie":print 
558 print"sind in meine folterhoeh 
le geraten ! ! !":print 

598 print"sie kommen hier nur lebe 
nd wieder heraus":print 

9388 print"wenn sie mich im wuerfel 
ratespiel besie-":print 

918 print"gen. also dann wollen wi 
r mal um ihr":print 

928 printtab( 15) f$;"leben";g$:prin 
t:print"spielen !" 

930 gosub4628:g0sub 1360 
948 gosuh445R 
958 scnelr 
968 forx=1to2 
978 fFori=1to6 
988 h(i)=@ 
998 nexti 

1880 fori=ito2 

1818 w=int(6*rnd(1)) +1 

1828 hli)=w 

18380 nexti 

1848 print h( 1) ;"+";h(l2) ;"=";hl1)+ 
h( 2) 
1850 
1068 
1070 
10808 


f(x)=h( 1) +hl2) 
gosub4620 

print 

print 

10898 ifx=2then1158 
1108 print"raten sie 
rf hoeher, oder":print 
1118 print"niedriger werden ? (h/n 
je 
1128 
1138 


wird ihr wu 


getkey w$ 

print 

1148 nextx 

1158 iffl1)-Fl2)>Bandw$="h"orf(1)- 
f(2)<QBandw$="n"thenprint:print:got 
01198 

1168 iff( 1)-f(2)=dthenprint"oh,ein 
stand,naja ein neues spiel-ein neu 
es leben !":g0t01188 

1170 printtab( 13)f$; "gewonnen !";g 
$:g0t01220 

1188 gosub4628:g0t0958 

1198 print:print:printtab( 12) f$;"v 
erloren !";g$:gosub1368 

1208 fe$="f" 

1218 return 

1228 vol5 

1230 sound1,4,15 


<id> 
<pm> 


" <ba> 


<dk> 
<pj? 
<ie> 


<af> 
<mp> 
<kp> 
<mf> 
<ad> 


<fc> 
<ce> 
<nd> 
<> 
<fc> 
<pb> 
<pb> 
<nd> 
<gl> 
<jb> 
<bg> 
<hg> 


<ga> 
<da> 
<oi> 
<pn> 
<bb> 
<ij> 


<jm> 


<dg> 
<ab> 
<hf> 
<dm> 


<hc> 


<jg> 


<jp> 
<nk> 


<bi> 
<jl> 
<al> 
<an> 
<jc> 
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1248 
1258 
1268 
1278 
1288 
1290 
1308 
1310 
1328 
1338 
1340 
1358 
1368 
1378 

it 
1380 
1398 
1408 
1418 


sound1,68,14 

sound1,15®,13 

sound1,328,12 

sound1,55®8, 15 

sound 1,558, 15 

sound1,328,12 

sound, 158,13 

sound1,68,14 

sound1,4,15 

sound1,8,28 

fe$="r" 

return 

print:print:print 

printtab( 18)f$;r$;"ha, ha, ha 
!";0$;g$ 

forb=1to3 

forh=1t018%2step2% 

vol5 

soundi,h, 

1428 nexth 

1430 fori=1to3fß:nextj:inextb:print 
return 

1440 
1458 
1468 
1478 
4490 
1488 
1498 
1508 
1518 
1528 


rem 
color1,3,4:scnelr:print:gosub 


print 

volint(rnd( 1)*8) +1 

d=int(rnd( 1)*16) +1 
colori,d,int(d/3) 
printtab( 18) f$"das ist baracu 


da,";g$ 


15380 print 
1548 printtab(3)f$;"der allesverni 
chtende vulkan ! ! !";g$ 


1558 fort=1t0o18:sound1,4,2:sound3, 
0,28:nextt:return 

1569 Em = ren —— 
1578 rem namenchanger 

1580: nem 
1598 scncelr:color1,1 

1688 print:print"du bist hier im 1 


och von namenchanger,":print:print 
"und ich gebe dir"; 

1618 print"eine chance,":print:pri 

nt"dein erbaermliches leben zu ret 
ten si 11” 

1628 print:print 

1638 print"irgendwo auf diesem bil 
dschirm wird":print 

1648 print"gleich mein 4-stelliger 
name kurz auf-":print 

1650 print"leuchten ! - merke ihn 

1668 print 

1670 gosub4458 

1688 scnclr 


<nl> 
<gd> 
<ec> 
<ka> 
<oo> 
<bm> 


<jo> 
<hh> 


<bf> 2» 
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1698 ad=int(rnd( 1) *1808) +3072 

1788 forp=1t025 

1718 ifad=3071+p*40thenad=ad-9 
17208 ifad=3070+p*40thenad=ad-8 
1738 ifad=3069+p*40thenad=ad-”7 
1748 ifad=3068+p*4dthenad=ad-6 
1758 nextp 

17608 fors=1t04 

1770 ad=ad+1 

1788 ze=int(rnd( 1)*26) +1 

1798 als)=ze 

1808 pokead,ze 

1818 nexts 

1828 fort=1t0258:next:scncelr 

1838 print:print"wie ist denn run 

mein name ?" 

1848 print:print:print:print 

1858 getkey n1$,n2$,n3$,n4$ 

1860 name$=n1$+n2$+n3$+n4$ 

1870 a$=chr$(al 1) +64) :b$=chr$(al2) 

+64) :c$=chr$( al 3) +64) :d$=chr$( a4) 

+64) 

1888 geamt$=a$+b$+c$+d$ 

1898 ifname$=gesamt$then 1970 

1988 print"ha, ha - falsch - zuers 

t werfe ich dich":print 

1918 print"den wilden teufeln vor, 
und dann kommst" :print 

1928 print"kommst du in den ";f$;" 

kochtopf !";g$ 

1938 print 

1948 printtab( 11)f$;r$"har, har, h 

ar !";g$;0$:gosub4628 

1950 fe$="f" 

1968 return 

1978 print"grxymkpfl - richtig - d 

u bist frei und":print 

1980 print"kannst weitergehen 

osub4458 

1998 fe$="r" 

28088 return 

2u 10: Dem ee a 

2028 rem 

2030: rem ----------- > 

28048 scnclr 

2858 print:print"darf ich mich vor 
stellen:":print 

2068 print"ich bin loserbuster, und 
ich hasse ver-":print 

2878 print"lierer so, dass ich sie 
in streifen":print 

2088 print"schneide und in die spe 
isekammer haenge!" 

2098 print:print 

21088 print"wie waere es denn mit e 
inem spielchen ?!":print:print 
2118 print"ah, ich sehe, sie wolle 
n mitspielen -":print 


:g 


<dn> 
<ja> 
<jh> 
<ej> 
<gk> 
<kd> 
<mg> 
<mm> 
<nl> 
<ej? 
<jg> 
<jf> 
<1lm> 
<kd> 


<ho> 
<ni> 
<cg> 
<pj? 


<pl> 
<fg> 
<be> 
<cj? 


<ge> 


<mk> 
<1lm> 


<dl> 
<bd> 
<on> 
<il> 
<kp> 
<bp> 
<dn> 
<nb> 
<ke> 
<ga> 
<oh> 
<dk> 
<lb> 


<nn> 


<eg> 
<ad> 


<jj? 


<mm> 


2128 print"also gut !":gosub4458 
2138 scnclr 

2148 print"das ist ihre karte 
2158 print:for t=1t0o1888%:next 
2168 ka=int(rnd(B)*9) +1 

2170 onkagosub2450, 2569,2670,2780, 
2890, 3000,3110,3220, 3330 

2188 print:gosub4620 

2198 color1i,1:print"na, sind sie m 
it ihrer karte zufrieden ?":print 
22080 gosub4628:scnclr 

2218 print:print"auch wenn ich jet 
zt eine hoehere karte":print 

2228 print"habe,koennen sie immer 
noch"; 

2230 printf$;" gewinnen !";g$:prin 
t 

2248 print 

2258 print"sie muessen nur erraten 
‚ welche karte":print:print"ich ha 
be":print 

2268 print:print"geben sie die zwe 
i anfangsbuchstaben der":print 
2278 print"karte ein (6=se bis as= 
as)" 

2288 getkey x1$,x2$ 

2298 k2=int(rnd(8)*9)+1:print:prin 
t"das ist meine karte :":print 
2300 onk2gosub2458,2560,2670,2780, 
2890,3000,3110,3220,33380:color1,1 
2318 if(ka-k2)>@then2388 

2328 ifx1$=x3$andx2$=x4$then2388:p 


" 


rint 

2338 print 

2348 if(ka-k2)=®thenprint"im zweif 
el fuer mich -":print:print"tja, p 
ech gehabt!" 

23580 gosub4620:char1,15,18,f$+t"v e 
rloren 0! 1! !"+g$:gosub4629 
2360 fe$="f" 


2378 print:print:print:print:print 
:return 

2388 print"gratuliere, sie haben g 
ewonnen, und":print:print"koennen 
unbehelligt gehen !" 


2390 gosub4459 

2400 fe$="r" 

2418 return 

2a Be re 
2438 rem kartengraphic 

S4a0 Dem = 


2458 color 1,3,3 

2468 printtab(5) "UCCCECI" 

2478 printtab(5)"B6"b4$"B" 

2488 printtab(5)"B"s2$"5"s2$"5"s2$ 
B" 

2498 printtab(5)"B"b4$s2$"B" 

2508 printtab(5)"B 5"s2$"5 B" 
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"g" 

28208 
2838 
2840 
2858 
2860 
2878 
2888 
2898 
2908 
2918 
2928 
"B" 

29308 
29408 
2958 
2968 
2978 
2988 
2998 
3008 
3218 
3228 
3038 
"g" 


printtab(5)"B"b5$"B" 
printtab(5)"B"s2$"S 5S"s2$"B" 
printtab(5) "8"s2$b3$"6B" 
printtab( 5) "JECECCK" 
x3$="s":x4$="e":return 
55 
printtab( 5) "UCCECEEI" 
printtab(5)"87"b4$"B" 
printtab(5)"B"s2$"5"s2$"5"s2$ 


printtab(5) "B"b4$s2$"B" 
printtab(5)"B S"s2$"S B" 
printtab(5) "B"b5g$"B" 
printtab(5)"B"s2$"5 S"s2ag"B" 
printtab(5) "B"s2$b3$"7B" 
printtab(5) "JCCECEK" 
x3$="s":x4$="i":return 

ae 30 

printtab(5) "UCCCCEI" 
printtab( 5) "BB"bag"B" 
printtab( 5) "B"s2$"S"s2$"8"s2$ 


printtab(5)"B"b4$s2$" 
printtab(5)"B 5"s2$"5 B" 
printtab(5)"B"b5$"B" 
printtab(5)"B"s2$"S 5"s2$"B" 
printtab( 5) "B"s2$b3$"8B" 
printtab( 5) "JCCCECK" 
x3$="a":x4$="c":return 
a 
printtab( 5) "UCCCEEI" 
printtab(5) "B9"b4$"B" 
printtab(5) "B"s2$"5"s2$"5"s2$ 


printtab(5) "B"b4$s2$"B" 
printtab(5)"B S"s2g"s B" 
printtab( 5) "B"b5$"B" 
printtab(5)"B"s2$"5 S"s2g"B" 
printtab(5)"B"s2$b3$"9B" 
printtab( 5) "JECCCECK" 
x3$="n":x4$="e"'return 
eulort,8,8 
printtab( 5) "UCCCEEI" 
printtab( 5) "B1@"b3$"B" 
printtab(5)"8"s2$"5"s2$"5"s2$ 


printtab(5)"B"bA$s2$"B" 
printtab(5)"B 5"s2$"5 B" 
printtab(5)"B"b5$"B" 
printtab(5)"B"s2$"5 S"s2a$"B" 
printtab(5)"8"s2$" 188" 
printtab(5) "JCCCECK" 
x3$="z":x4$="e":return 
en 
printtab( 5) "UCCCCEI" 
printtab(5)"Bb"bA$"B" 
printtab(5) "B"s2$"5"s2$"5"s2$ 


<cp> 
<ac> 


<ja> 


<ml> 
<ja> 
<di> 
<pc> 
<bj> 


<cg> 
<og> 
<ie> 
<oi> 
<dl> 
<dp> 
<hf> 
<fc> 
<md> 
<ng> 
<df> 


<mg> 
<pa> 
<pn> 
<fl> 
<de> 
<hg> 
<dh> 
<ad> 
<gb> 
<bl> 
<bb> 


<ap> 
<dk> 
<cn> 
<gg> 
<ba> 
<jp? 
<jc> 
<fe> 
<po> 
<ei> 
<mp> 


<fo> 
<ik> 
<hk> 
<hm> 
<ep> 
<pe> 
<ai> 
<kh> 
<ik> 
<fo> 
<an> 


<db> 
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3048 printtab(5) "B"b4$s2$"B" 

30858 printtab(5)"B S"s2$"S B" 
3868 printtab(5)"B"b5$"B" 

3078 printtab(5)"B"s2$"S S"s2$"B" 
3880 printtab( 5) "B"s2$b3$"bB" 
3898 printtab( 5) "JCCECCCK" 

3180 x3$="b":x4$="u":return 

3118 color1,3,3 

3128 printtab( 5) "UCCCEECI" 

3138 printtab(5)"Bd"b4$"B" 

3148 printtab(5)"B"s2$"S"s2$"5"s2$ 
Br 

3158 printtab(5)"B"b4$s2$"B" 

3168 printtab(5)"B 5"s2$"S B" 
3178 printtab(5)"B"b5$"B" 

3188 printtab(5)"B"s2$"S 5"s2$"B" 
3198 printtab(5)"B"s2$b3$"dB" 
3288 printtab(5) "JCCECEEK" 

3218 x3$="d":x4$="a":return. 

3220 color1,3,3 

3238 printtab( 5) "UCCCEEEI" 

3248 printtab(5)"BK"b4$"B" 

3258 printtab( 5) "B"s2$"5"s2$"5"s2$ 
REF 

3268 printtab(5)"B"b4$s2$"B" 

3278 printtab(5)"B S"s2$"S B" 
32880 printtab(5)"B"b5$"B" 

3298 printtab(5)"8"s2$"S S"s2$"B" 
3388 printtab(5)"B"s2$b3$"kKB" 
3318 printtab(5)"JCCCECK" 

3328 x3$="kK":x4$="o":return 

3338 color1,3,3 

3348 printtab(5) "UCCCEEI" 

3358 printtab(5)"Ba"b4$"B" 

3368 printtab(5)"B"s2$"S"s2$"5"s2$ 
"g" 

3378 printtab(5) "B"b4$s2$"B" 

33880 printtab(5)"B S"s2$"5 B" 
3398 printtab(5) "B"b5$"B" 

3488 printtab(5)"B"s2$"S S"s2$"B" 
3418 printtab(5)"B"s2$b3$"aB" 
3428 printtab( 5) "JCECECCK" 


3430 x3$="a":x4$="s":return 
3448 rem ------------------------- 
3458 rem fressmonster 
3460 rem ------------------------- 


3478 scnclr:print 

3488 print"vorsicht - sie sind in 

die hoehle der":print 

3498 printf$;"fressmonster 

eraten !":print 

3588 print"sie koennen den monster 

n nur entkommen, ":print 

3518 print"wenn sie aus den zahlen 
1-7? in fuenf ver":print 

3528 print"suchen die richtigen za 

hlen finden,um":print:print"sie zu 
stoppen ! ! !" 


‚g$;"g 
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3538 print 

3548 print"bei jedem tastendruck k 
ommen sie naeher!":char1,19,18,f$+ 
"sood luck !"+g$ 

3558 print:gosub4458 

3568 ei=B:e2=B:e3=0:e4=B:forv=1t04 
:o(lv)=int(rnd( 1)*7)+1:next 

3578 scnclr 


3588 poke3171,8:poke3371,211:poke3 
376,8:poke3366,8:poke3571,8 


3598 fort=1t05 

3608 ifei=1ande2=1ande3=iande4=1ith 

en3718 

3618 trap3?74B:getkey az 

3628 ifaz<1ioraz>?7then3748 

3638 gosub3758 

3648 vol5:sound3,8,1® 

3658 nextt 

3668 ife1=1ande2=1ande3=1ande4=1th 

en3710 

3678 vol8:sound1,988,48:foryy=1to3 
:forc=1t0588:next:sound3,8,5:nexty 

y 

3688 char1,1,12,"pech gehabt !":go 
sub4628 

3698 fe$="f" 

3788 return 

3718 char1,1,12,"noch mal dem tod 

entronnen !":print:gosub4458 

3728 fe$="r" 

3738 return 

3748 char1,1,14,"nur die tasten vo 
n 1-7 !":gosub46209:g0t03568 

3758 poke3191+(t-1)*48,96:poke3376 

-(t-1) ,96:poke3366+( t-1) ,96:poke35 

71-(t-1)*48,96 

3768 ifaz<>o( 1) ande!=®thenpoke3171 

+t*48,B:elseei=1 

3778 ifaz<>o( 2) ande2=®thenpoke3376 

-t,B:!elsee2=1 

3788 ifaz<>o( 3) ande3=dthenpoke3366 

+t,8:elsee3=1 

3798 ifaz<>o( 4) ande4=dthenpoke3571 

-t*4B,D:elsee4=1 

3800 return 

33 Dee 

3828 rem 

3830 rem ren 

3848 scnclr:print:print"achtung!-d 
ie ersten auswirkungen des be-":pr 
int 

3858 print"vorstehenden ausbruches 
sind im anrollen":print:print" - 

steinschlag ! ! ! " 

3868 print:print:print"sie sind da 

s revers dargestellte S und":print 

3878 print"koennen nur hoffen,dass 
sie von den ":print 


<ei> 


<mj> 
<ci> 


<pi> 
<oh> 


<aj> 
<ej? 


<an> 
<jj> 
<gc> 
<gb> 
<hk> 
<ji> 


<cf> 


<jh> 


<ib> 
<ef> 
<jd> 
<oe> 
<ic> 


<mp> 


<hn> 


<nh> 
<oe> 
<ed> 


<cb> 


<pp> 
<fl> 
<hn> 
<oa> 
<oc> 


<le> 


<ka> 
<in> 


<he> 


3888 print"steinen verschont bleib 
Ben! =» " 

3898 print:print 

3980 printtab(3)f$; "viel glu 
eck ! ! !";g$:print:print:gosub 
4458 

3948 scenclr:color1,3,4 

3928 a=int(rnd( 1) *1008) +3072 

3938 pokea,83+128 

3948 fort=1to1ß®%:next 

3958 s=int(rnd( 1) #508) +388 

3968 color!,1:forx=1tosstep! 

3978 volint(rnd( 1)#4)+1:sound3,int 
(rnd( 1)*10) ,1 

3988 p=int(rnd( 1)*1000) +3072 

3998 pokep,81 

4000 ifp=athens=x-1:vol8:sound1,®, 
59:g0t049068 


- 4818 nextx 


4028 gosub4620 

4838 scnclr:print:printtab(6)f$;"g 
lueck gehabt ! ! !";g$:g0sub4458 
4048 fFe$="r" 

40580 return 

4068 gosub4620:print:scncelr 

4878 print:print"das war pech - si 
e sind":print:printtab(9)f$;"zerma 
nscht ! ! !";g$ 

4080 gosub4620 

4090 fFe$="f" 

4188 return 

RE. Be 
4128 rem 
4139 nem => 
4148 print:print"sie werden von wi 
lden schweinchen ver-":print 

4158 print"folgt und muessen in de 
n krater zurueck" :print:printtabf 1 
= u In Se 

4160 gosub4630 

4170 s2=®:return 

A180. Nenn Sram en 
4198 rem 
4200 nem. een 
4218 gosub4490:color1,12,4:fors=1t 
018 

4228 char1,14,10,"MWN":char1,14,11 
zart "chart, 14, 12,"N WM 
4238 for t=1t010:vol8:sound1, 18*t+ 
988,1:next 

4248 char1,14,10," W ":char1,14,11 
‚2z2$+z25$+z22$:char1,14,12," "+z4$+z 
4$ 

4258 fort=1to1ß®:next:next 

4268 vold:formm=1t029:sound1,int(r 
nd( 1) #388) ,int( rnd( 1) *28) 

4278 color®,int(rnd( 1) #16) +1,int(r 
nd( 1) #3) +3:sound1,int(rnd( 1) #302) + 


<hg> 
<hj> 


<dj> 
<hi> 
<mp> 
<hn> 
<ii> 
<pb> 
<ak> 


<be> 
<jo> 
<pk> 


<fo> 
<ed> 
<eo> 


<id> 
<cn> 
<fb> 
<kf> 


<lh> 
<nh> 
<1ln> 
<lg> 
<im> 
<ca> 
<an> 


nis 
<jd> 
<od> 
<fe> 
<gb> 
<gl> 
<oi> 
<dg> 
<gh> 
<mf> 
<hj> 
<ae> 


<jb> 


SARACUDA ADVENTURES PLUS/4 


228,8 


£:col 
2348 
orn g 
2350 
oenne 
2368 
w+1 ; 
4378 
ort=1 
2388 
4398 
color 
2400 
2418 
);zz$ 
4428 
4438 
4448 
4458 
ind, 
turn 
4468 
4478 
4488 
4498 
4500 
"y" 
4510 
z8$b2 
4528 
gs" m" 
4538 
"K"b6 
4548 
4558 
4568 
4578 
00,1: 
4588 
)*14) 
4598 
4 
4608 
4618 
4620 
4638 
4648 
4650 
4668 


next 
gosub4628:vold® 


scnelr:color1,1:colord,2:retu 


rem 
sw=int(rnd( 1)*7) +1:print:prin 
or1,6,4 

print"ein smaragdgruenes einh 
allopiert":print 
print"an ihnen vorbei ! 
n aufsprin-" 
print:print"gen und kommen";s 
schritte weiter !" 
print:print:print:printzz$;:f 
to25®:next 

forbb=1t019 
color1,2:printchr$( 159) ;zz$;: 
1,6,4:printchr$( 29) ;zz$; 

for t=1t0288:next 
nextbb:color!,2:printchr$( 1597 


sie k 


color1,1:gosub4450 

sa=s2tsw 

return 

print:print"wenn sie bereit s 
":r$;"space";0$:getkey tt$:re 


rem 
print:print:print:print:print 
printtab( 6) b3$"N"yq$b5$b4$z28$ 


printtab(6)b2$"N"b2$yq$b4$b3$ 
g"Mm" 
printtab(6)" N"b4$yq$b5$z8$b4 


printtab( 6) "N"b6$"J"zg$zg$zg$ 
g"M" 
printtab(5)"N"left$(b1$,19)"M 


printtab( 4) "N"bI1$"M" 
forgq3=1t058 
vol8:sound1,int(rnd( 1) *288) +8 
sound3,8,5 
a2=int(rnd( 1)*8) :qB=int(rnd( 1 
+3088 
pokegd+48*qg2,int(rnd( 1) *44) +8 


nextq3 

return 

fort=1t02888:next:return 
fort=1t048808:next:return 
rem nachspann 
rem #%*#* zeichensatz/graphik * 
s2$=chr$( 168) :z2$=chr$( 163) 


<dn> 
<dc> 


<ai> 
<id> 
<nl> 
<hn> 


<db> 


<fb> 


<pj?> 
<jo> 


<jm> 
<hd> 


<jb> 
<eh> 


<op> 
<ml> 
<kg> 
<ga> 


<aa> 
<ea> 
<da> 
<jc> 
<cg> 


<kd> 
<ho> 
<bd> 
<ai> 


<nf> 
<ma> 
<kc> 


<cg> 
<mg> 


<ab> 
<ch> 
<lg> 
<fd> 
<ji> 
<ic> 
<lo> 
<pc> 


—85-—- 
4678 z4$=chr$( 165) :2z5$=chr$( 166) <fi> 
4688 z8$=chr$( 169) :zg$=chr$( 177) <om> 
46908 yq$=chr$( 223) :zz$=chr$( 255) <he> 
4700 b2$g=" "+" ":63$=b2$r" " <gl> 
4710 bA$=b3$+" ":b5$=bA$+" " <ep> 
4720 b6$=b5$+" ":fori=1t021 <ej? 
4738 b1$=bl$+" ":next:return <ji> 
4740 rem ========================= Co0> 
4750 rem 60671 bytes memory <mo> 
4768 rem 12437 bytes program <il> 
4778 rem 88280 bytes variables <con> 
4780 rem DOB0D bytes arrays <og> 
4798 rem 80434 bytes strings <ik> 
4808 rem 47528 bytes free (B) <if> 
4810 rem =====---uu0nnunsneenennen Cjp> 


; 
TRAP X: Wenn ein Fehler (TYPE MISMATCH, RUN- 
STOP, ...) auftreten sollte, springt das Programm 

zu Zeile X und steigt nicht aus. i 
SCNCLR: Der Bildschirm (ob Text- oder Graphic- 
modus) wird gelöscht. 

ON X GOTO (GOSUB) Y, Z, ...: Wenn X=1, dann 
springt das Programm zu Zeile Y, wenn X=2, zu 

Zeile Z, usw. 

CHAR X,Y,Z,Q: Der Text (String) Q wird in Spalte Y 
und Zeile Z in der Farbe gedruckt, auf die die Farb- 
zonennummer X gesetzt ist. 


V: Liste der Sonderstrings: 
R “String“=CHR “String“ 
O “String“=CHR “String“ 
F “String“‘=CHR “String“ 


(18) = Revers an 
(146) = Revers aus 
(130) = Flash an 


G “String‘‘=CHR “String““ (131) = Flash aus 

G “String‘= CHR“ String“ (27) = Escape-Taste 
19) = Home-Taste 

29) 

15:7 


= Cursor rechts 
) = Cursor links 
Martin Purucker 


CHR “String“ 


( 

( 

E “String‘“‘=CHR “String“ E 
CHR “String“ ( 
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Einige Besonderheiten des Programms sind: 

— Eingabe mit Kontrollmöglichkeit 

— wählbare Kopienzahl 

— automatischer Blattvorschub 

— Geldbeträge, Warenbezeichnung, Mengenbezeich- 
nung usw. werden bündig untereinander geschrie- 


ben. 

— wählbare Zahlungsform, mit entsprechendem 
Text 

— bei Zahlungsform Rechnung, automatische 
Skontoberechnung 

— auf Wunsch 4 Zeilen für Anmerkungen 

— fester Absender, Bankverbindungen usw. im 
Listing. 


Programmbeschreibung: 


Nach dem Starten des Programms, mit ‘RUN'‘, er- 
scheint das Titelbild. 

Nach dem Druck einer Taste müssen Sie die Mehr- 
wertsteuer und das Tagesdatum eingeben. Diese bei- 
den Eingaben bleiben solange im Speicher, bis das 
Programm abgebrochen wird. - 

Falls in Ihren Preisen die Mehrwertsteuer schon ent- 
halten ist, geben Sie eine ‘0‘ ein. 

Jetzt beginnt das Schreiben der ersten Rechnung. 
Beantworten Sie jetzt die Fragen, die das Programm 
Ihnen stellt. . 
Beachten Sie aber, daß Sie kein Komma oder keinen 
Doppelpunkt benutzen! 
Geben Bie bei den Artikeln immer die Einzahl ein, 


z.B. C 16 Computer(Return), 3(Return), 120(Return). 


Der Computer weiß dann, daß Sie 3 C16 Computer 
a 120 DM meinen, und setzt 360 DM als Gesamtbe- 
trag ein. 

Bei den Zahlungsarten können Sie zwischen Barzah- 
lung, Rechnung und Nachnahme auswählen. Der 
Computer druckt dann einen entsprechenden Text 


aus. ; 
Bei der Zahlungsart Rechnung wird außerdem 
Skonto automatisch berechnet und eingetragen. 

Bei der Frage, ob Sie Anmerkungen machen möch- 
ten, können Sie zwischen 4 Zeilen Text wählen 

oder mit dem Programm fortfahren. 

Möchten Sie Anmerkungen machen, können Sie 4 
Zeilen bis zu jeweils 2. Zeile unter ein Sternchen 
schreiben. Hierbei müssen Sie aber wieder darauf ach- 
ten, daß Sie keine Kommata und Doppelpunkte ver- 
wenden. 

Danach kommt man wieder in einen Auswahlmodus, 
in dem man zwischen Kontrolle und Druck wählen 
kann. In der Kontrolle durchläuft das Programm 
nochmals alle Abfragen, ohne aber den schon einge- 
gebenen Text zu löschen. In diesem Modus kann 
man Ändern, Löschen, und Einfügen. 

Entscheidend zum Löschen und Einfügen sind die 
Abfragen ‘weiter Artikel‘. Bei ‘j‘ für jakann man ei- 
nen Artikel anfügen, bei ‘'n‘ für nein löschen. Das- 
selbe ist mit den Anmerkungen möglich. 

Kommen Sie dann wieder zu der Abfrage ‘Kontrolle‘ 
oder ‘Druck‘, und Sie wählen Druck, werden Sie 
nach der gewünschten Kopienanzahl gefragt. 

Bevor Sie diese beantworten, vergewissern Sie sich, 
ob der Drucker angeschaltet ist. und das Papier 


richtig justiert ist. Wenn ja, geben Sie die Kopien- 
anzahl ein. Nun erfolgt der Druck... 

Nach dem Druck erfolgt ein automatischer Blattvor- 
schub, wobei das Blatt automatisch neu justiert 

wird. Wurde eine Kopie gewünscht, erfolgt nun die 
Erstellung einer Kopie. 

Nach der Beendigung des Drucks können Sie das 
Blatt durch Drücken der Taste ‘j‘ zum Abriß heraus- 
schieben lassen. Dabei wird das nächste Blatt wieder 
Justiert. 

Mit der Taste ‘e‘ gelangen Sie dann in einen weiteren 
Abfragemodus. 

Hier können Sie dann entscheiden, ob Sie weitere 
Rechnungen schreiben wollen, und ob die letzten Ein- 
gaben gelöscht werden sollen oder nicht. 

Werden die Fragen mit nein beantwortet, verabschie- 
det sich das Programm. Andernfalls beginnt es mit 
der Eingabe von vorne. 


Tips zur Programmeingabe 


Das Listing wurde nach der Fertigstellung, durch 
‘renumber‘, auf Vordermann gebracht. Man kann also 
am Anfang ‘Auto 10° eingeben. 

In die Zeilen 590, 980, 1020, 1060, 1070 und 1670 
müssen eigene Angaben programmiert werden. 

Alle Rems können weggelassen werden, da sich die 
Goto-Anweisungen nicht auf die Rems beziehen. 


Steuercodes des Druckers 


Zum Druck benutze ich einen MPS 801-kompatiblen 
Drucker. Wer einen anderen Drucker besitzt, kann 
hiermit Änderungen vornehmen. 


chr$(10) = Zeilenvorschub 
chr$(14) = doppelte Zeichenbreite 
chr$(15) = Standardzeichen 
chr$(16) = Text einrücken 
chr$(17) = Groß/Kleinbuchstaben 
chr$(18) = Negativdruck 


Variablenbelegung 
Die wichtigsten Variablen sind: 
t 


= Mehrwertsteuer 
d$ = Rechnungsdatum 
n$ = Empfängername 
s$ = Straße und Nr. 
0o8$ = PLZundOrt 
nı$ = Rechnungsdatum 
iz$ = Ihre Zeichen 
in$ = Ihre Nachricht 
uz$ = unsere Zeichen 
un$ = unsere Nachricht 
v = Artikelmenge 
b. = Blattvorschub 
an$ = Artikel/Leistung 
m = Menge 
p = Einzelpreis 
JS __= weitere Artikel __ 
vp = Verpackungskosten 
pl = Versandkosten 
za = Zahlungsart 
a$ = Anmerkungswahl 
w$ = Auswahl allg. 


ak Kopienanzahl 
al$-a4$ = Anmerkungen 
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EB rem rechnung ==>====-====- 77016 
"2 rem (p) commodore welt 

3® rem ==3>=====-= 7 nase 
22? rem (c) by a. liebect 
=? rem 
Ss? rem 
”® rem basic v3.5 
=2 rem c16/116/plus 4 
2 rem ==========S7=SS0 22000 
‘2 


® scncelr:print chr$( 14) 

‘8 fori=1to48:bl$=bl$+"*":next 
"28 fori=1to38:b$=b$+" ":next 
138: 528=" "+" Yib3=bag+" " 

"48 b4$=b2$g+" ":b5$=b4$+" " 

159 b6$=b5$+" ":6?7$=b6$+" " 

‘60 printbl$ 

178 print"#"bg"*" 

180 print"*"b7E"RECHNUNG 
Ce - 16"b7g"*" 


208 print"*"bE"*" 

218 print"*"b7$"fuer C16 / Ct16 / 
plus A"bIYE"*" 

2208 print"*"b4$b3$"mit Floppy oder 
Tape"b6$b5$"*" 

238 print"* auf Commodore kompati 

blen Druckern #*" 

248 print"*"bg"*" 

258 print"* Copyright 

chim Liebeck Bi 

268 print"#"bg"*" 

278 printbl$ 

288 print 

298 print" Schalten Sie Ihren 

Drucker ein !":print 

302 printleft$(b$,12)"Papier justi 

eren !":print 

378 printb5$b4$"Druecken Sie eine 
Taste !" 

320 getkey a$ 

338 scnclr 

348 print"Kurzanleitung !":print 
358 print"Die Fuehrung durch das P 
rogramm erfolgt ueber Abfragerouti 
nen.":print 

368 print"Beantworten Sie die <j/n 
>-Fragen mit j fuer ja oder n fue 
r nein." 

378 print 

380 print"Alle anderen Fragen sind 
mit dem von Ihnen gewuenschten 
Text oder" 

398 print"mit den von Ihnen gewuen 
schten Zahlen zu beantworten." 
408 print 


19586 by A 


<xef> 
<op> 
eng? 
<md> 
<pd> 
<eh> 
<nl> 
<ki> 
<ig> 
<bi> 
<mi> 
<gl> 
<bc> 
<kk> 
<ij> 
<ijk> 
<1lo> 


<oh> 


<ig> 
<xon> 


<hk> 
zac> 


<kb> 
<bn> 


<mn?> 
<jp> 
<id> 
<ml> 
<dj> 
<pc> 
<ab> 
<kd> 


<ho> 
<cj? 


<kb> 


<bi> 
<hp> 
<xek> 


<oa> 
<lm> 


428 print:vol?:sound!,982, 18 

432 input"Mehrwertsteuersatz: ";t: 
print 

440 input"Rechnungsdatum....: ";d$ 
:print 

458 dim an$( 102) :dim m( 108) :dim p( 
188) :dim iF( 180) 


468 iz2$="":in$g="":ung="":ak=Q@:vp=d 
:p!=B:za=ß:a$="":ang="" 

478 s=B:nr$="":wr$="":an$="":m=Q:p 
=® 

488 x=9:kz=Q:n$="":5$="":0$="":a1$ 
ER ag 

498 za=d:ge=0:j$="" 

52ER b=B:v-ß:wasß:scnelr 

518 printtab( 22) ;n$;chr$( 29) +"j";: 
input"Empfaengername....: ";n$:pri 
nt:prirt 

520 printtab( 22) ;s$;chr$( 27) +"3j";: 
input"Strasse ü. Nr.....- "ss$ipri 
nt:print 

538 printtab( 22) 50$;chr$(29)+"3";: 
INBUE "PEZ Ur OFE zer ce : "saßıpri 
nt:print 

548 printtabf 22) ;nr$;chr${27)+"3j"; 
:input"Rechnungsnummer...: ";nr$:p 
rint:print 

558 printtab( 22) ;iz$;chr$(27)+"5"; 
zindak" Ihre Zeichen. ms: "iiziep 
rirt:print 

568 printtab( 22) ;in$;chr$(27)+"j"; 
:input”"Ihre Nachricht....: ";in$:p 
rint:print 

578 printtab( 22) ;uz$;chr$(27)+"j"; 
sinput”"unsere Zeichen....: ";uzS:p 
rint:print 

588 printtab( 22) ;un$;chr$(27)+"j"; 


:input"unsere Nachricht..: ";un$:p 

rint:print 

598 bz$="Ihre Zeichen u. Nachrich 

t, unsere Zeichen u. Nachricht 

Musterstadt" 

608 10$="Artikelname od. Leistung 
Einheiten Preis/Einheit Gesam 

tPreis/DM" i 

BIO L ISSN ae F 


648 scneir 

658 vev+1l:b=b+t1 

66@ printtab( 21) ;an$(v) ;chr$( 27) +" 
3"; :input"Artikel/Leistung..: ";an 


<bc> 
<kg> 


<gg> 
<kb> 
<pa> 
<lk> 
<lm> 
<om> 


<ne> 
<nj?> 


<pa> 


<me> 


<fc> 


<hm> 


<fg> 


<ie> 


<ba> 


<ki> 


<hp> 


<pn> 


<hd> 


<bk> 
<on> 
<ba> 
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$(v):print 

678 printtab( 28) ;m(v) ;chr$(27)+"j" 
"SIHDUE MENDE. sense me N 
:print 

680 printtab( 28) ;p{v) ;chr$(27)+"3" 
veinput "Einzeldreiss sea! "EDEV 
:print 


698 printtab( 26) ; j$Cv) ;chr$(27)+"j 
"s:input"Weitere Artikel <j/n> : " 
;3${v) :print 

708 if j$(v)="j" then 658 

718 printtab( 25) ;vp;chr$(27)+"j";: 
input"Verpackungskosten..... x "vo 
:print 

728 printtab( 25) ;p1;chr$(27)+"3j";: 
input"Versandkosten (Porto).: ";p1 
‘print 

738 print"Zahlungsart: Barverkauf 
= 8 

748 printleft$(b$, 13) "Rechnung = 
on 

758 printleft$(b$, 13)"Nachnahme = 


an 
768 printtab( 25) ;za;chr$( 27) +"j";: 
input"Zahlungsart ı sa “riza 
:print 

77a arinttab( 26) za$;chr${ 29)+"5"; 
input "Anmerkungen < j / n >.:";a$ 
print 

780 if af="" then 358 


298 if a$="n" then 852 

BDOB print"Achtung: max. je Zeile { 
4) bis unter das Sternchen schreib 
en ! ge 

810 print:printtabf 2) ;al$;chr$( 27) 
+"3j"s:input 31$ 

828 printtab( 2) ;3a2$;chr$( 27) +"3j";: 
input a2$ 

838 printtab( 2) ;a3$;chr$( 27) +"j";: 
input 33$ . 

848 printtab( 2) ;a4$;chr$( 27)+"3";: 
input 34$ 

858 print:print:print"[Klontrolle 
oder [AJusdruck ?" 

868 getkey wS:if w$="k" then 5982 
870 if w$="a"then888:else869 

8882 input"Anzahl der Kopien 
"sak:print 

898 Ken a ee na 
920 rem 
930: em Per —i 
928 open 1,4,7 

930 s=Q:v=b 

9aR Pen =-7n rn 
958 rem firmen- oder familienname 
968 rem hier eintragen 


<bf> 


<pj?> 


<id> 


<pa> 
<io> 


<cb> 


970 rem ---"---------------- 


988 print#1,chr$( 14)" Manfred Mu 
ster E 

390 DEN mar 
‘800 rem anschrift hier eintragen 
1810 nem + 
10828 print#1,chr$( 15)" 
usterstadt, Musterstrasse 2 
1930 rem +++ 
18480 rem bankverbindung eintragen 
18508 rem ===> -=-----7>7 7222 
1068 print#1,chr$( 16) "@6Bankkonto: 
Kreissparkasse Musterstadt(8LZ 28 
2 20 00)"; 

1078 print#!1," Nr. 000 Baan" 

1880 print#1:print#1:print#1:print 
#1:print#1:print#1 

10898 print#1,chr$( 16) "@6Firma/Herr 
n/Frau" 

1192 print#1,chr${ ?6)85n$:printf1, 
chr$( 16)85s$:print#1:print#!,chr${ 
16) 8508 

1118 print#1:print#1:print#1:print 
#i:print#1:print#i,chr$( 16) 05bz$ 
1122 t1=15:tx$=iz$:gosub 2948 

1120 t1l=11:tx$=in$:gosub 20409 

1:42 18:tx$=uz$:gosub 2049 

1152 t1=13:tx$=un$:gosub 20409 

1169 ti=11:tx$=d$ :gosub 29040 

178 print#1:print#1:printf 


5555 M 


” 


E 
ht 
ı 


+ cr er 


1188 print#1,chr$( 14)" Rechnung" 
1190 print 

1208 parint#1,chr$( 15)" Rechnu 
ngsnummer: ";nr$ 

1218 print#1,chr$( 16) "B6Rechnungsd 
atum : ";d$:printf1 


1228 print#1,chr$( 16) "Q6Wir liefer 
ten Ihnen:":printf#1 

1238 print#!,chr$( 16) 2510$ 

1240 print#1,chr$( 16) B511$11$11$11 
$ 

1250 t1=26:vk=6:nk=2:u$="13.2" 
1268 for n=1 to b 

12780 tx$=an$(n):gosub 2940 

1288 zx=m({n) :gosub2950 

1290 ux=p(n) :gosub2998 

1300 g=m(n)*p{n) 

1310 ux=g:gosub 20909 

1320 s=s+g 

13380 printf1, 

1348 next n 

1358 print#1,chr$( 16) OS11$11$11$11 
$ 


RECHNUNG 


‘260 

3798 
sub 
388 


t1=-30:u$="35.2" 

tx$="Summe ‚Nettowarenwert:":g 

2842 

ux=s:gosub 2690 

‘398 print#1, 

‘428 tx$="Verpackungskosten:":gosu 

> 2848 

418 ux=vp:gosub 20890 

1428 print#1, 

‘430 gp=stvp 

‘448 tx$="Gesamtpreis exkl. 

":gosub 2842 

14580 ux=gp:gosub 2890 

1468 print#',, 

1498 ta=t/102:mw=gp*ta 

1480 tx$="+gesetzliche Mwst.:":g 

ub 2848 

1498 ux=mw:gosub 2890 

1508 print#1, 

1518 tx$="Versandkasten (Porto, Fr 

acht) :":gosub 28408 

1520 ux=p1:gosub 2098 

15380 print#1, 

1548 print#1,chr$( 16) 0513$ 

1550 ge=gp+tmw+p1 

1560 tx$="Gesamtbetrag/DM: 

gosub 2848 

1570 ux=ge:gosub 2890 

1588, print#1, 

1590 print#1,chr$( 16) 05148 

16@@ print#1:print#1 

1618 sk=[ gp+mw) *0.02:sorint( sk*108 

+8.05)/108 

1628 if za=® 

1632 if za=! 

1640 if za=2 then 1688 

1658 if za=3 then 1708 

1668 print#1,chr${ 16) "06Betrag erh 

alten.":print#1 

1670 print#i,chr${ 16) "B6Musterstad 

t, den ";d$:v=ev+3:goto 1718 

1688 print#1,chr$( 16) "®O6Zahlbar in 

nerhalb 380 Tagen, netto, oder inne 

rhalb von 18 Tagen” 

1698 print#1,chr$( 16)"Q6mit 2% Sko 

ntoabzug (";so;"DM).":v=v+2:goto 1 

718 

1708 print#1,chr$( 16) "Q6Betrag dur 

ch Nachnahme erhalten.":v=v+1:goto 
1718 

1718 if a$="n" or a$="" then 22408 
1720 print#1:print#?,chr$( 16) 05a1$ 
:print#1,chr$( 16) 85a2$:print#1,chr 

${ 16) 0533$ 

1738 print#1,chr$( 16) 02534$ 

1748 print#1,chr$( 18) 


Mwst.: 


Ir 


then 
then 


1728 
1668 


<ln> 
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1758 
1768 
1770 
1788 
798 


if ak>® then 1978 

if ak=@ then 1830 |, 

c=B:if c=ak then: 1838 
ak=ak-1:gp=B 

for a=ßto21-v:printfi:next 
1888 goto 93% 

1810 rem 
1828 rem 
1838 
1840 


rem 
forae=8to24-v:printf#i:next 
185® print" Papier kann durch ’j’ 
zum Abriss vor- geschoben und n 
eu justiert werden !!" 

1856 print:printb5$b5$"Dann ’e’ dr 
vecken.”" 


1870 getkey w$ 

1888 if w&$="j" then 1898:else 19408 
1898 for p=® to ?1:printf#1i:next 
1988 goto 1878 

1940 PER Fremen Fe rn, 
928 rem artikelloeschung 

938 neh mem en 
‘948 input"Weitere Rechnungen <j/n 
>» : »wr$:print 

1958 if wr$="j" then close Tt:elsel 
998 

1968 print:input"Daten loeschen <j 
/{n> :";wr$:print 

1970 if wr$="j" then 1988:else5ßß 
1988 Forl=Btov:an$(1)="":mll)=B:pl 
1)-@:j$C1)="":next:goto46® 

1998 close 1,4,7 

euDB end 

20TD Rem rer ET 
2822 rem textpositionierung 
2030 nem nn 
2048 tx=len(tx$) :print#1,chr$( 16) 8 


Stx$;tab(tl-tx);:return 

2050 zx=int( zx*100+0.5)/100:zx$=st 
r$(zx) 

2060 zl=len(zx$) :zu=sß:for zn=1 to 
zl:if mid$(zx$,zn,1)="." then goto 
2088 

2078 zu=zu+ti:next zn 

20880 print#!,tab( vk-zu) ;zx;tab( (nk 

+vk) -(vk-zu+zl)+1);:return 

2898 uv$=right$(u$,1) :ulsint(vallu 

$)) 

2100 if uvh<>". 

goto 2120 

2118 uaß=str$(sgnlux)*intlabs(ux)) 

)+",."zub$="":ul=sul+1:goto 2218 

2120 ul=int(val(u$)) 

2138 ux$=str$(sgn{ux)*(intlabs(ux) 

*1Q°ur+8.5))/18’ur) 

2140 uv=®:for un=1 to len(ux$):if 


" then ur=val(uv$): 


RECHNUNG - 4 — 


LISTING 


<cg> 


mid$(ux$,un,1)="." then uv=un MINIZEICHEN 

2158 next un <ha> 

21608 if uv=® then uv=un:ux$=ux$+". 10 rem 64 minizeichen ==========p4 <em> 
Y <ii> 28 rem (p) commodore welt <op> 
2170 if uv<>2 then 2190 <hb> 20 rem ============-====--==-====0== ong> 
2180 ux$=left$(lux$,1)+"QO"+right$(lu 48 rem (c) by schmid-fabian <lo> 
x$,len(ux$) -1) :ul=ul-1:ur=ur#1 <af> 5®d rem <pd> 
2190 ub$=mid$(ux$,uv,len(ux$)+1)+" . 860 rem <ah> 
nanennonn" <hi> 78 rem basic v3.5 n1> 
2200 ub$=left$(ub$,ur+1) :ua$=left$ 80 rem c16/116/plus 4 (64 kbyte) <hg> 
(ux$,uv-1) <fn> 90 rem =============-=-========02==2== Cjg> 
2210 if len(ua$)>ul then print"Usi 190 c1$=chr$( 157) :c2$=chr$( 145) <jk> 
ngbereich zu klein":stop <dm> 110 c3$=chr$(29) :c4$=chr$( 17) <ka> 
2220 if len(ua$)<ul then ua$=" "+u 120 dl$=chr$( 20) <1f> 
a$:goto 2220 “ga? 130 d=5:rem abstand der buchstaben <ma> 
2238 print#1,(ua$+ub$) ;:return <be> 140 trap288:fori=32t096:g$=g$+chr$ 

2720 al$="":a29="":a3$="":a4=""  <ke> (i) :next:fori=192t0218:g$=g$+chr$( 

2258 goto 1728 <nn> i}:next <fo> 
2260 Tan are een SDR 158 graphic!,1:sshapes$,8,8,5,7:ch 

2270 rem 12277 bytes memory <ll> ar,@,®,chr$( 164) <nk> 
2288 rem 07291 bytes program <md> 168 sshapem$,0,0,5,?:scnclr:gshape 

2290 rem 89308 bytes variables <mp> m$,2,0,4 <kl> 


2300 rem D1644 bytes arrays <1d> 
23198 rem 80874 bytes strings 
2320 rem 02168 bytes free (®) 


178 getkeya$:ifa$=chr${( 13)thengsha 
pem$,x,y,4:x=@:y=y+8:gshapem$,x,y, 
<fd> 4 <em> 


2330 rem ==================2 020-8 <oo> 


64 ZEICHEN 
PRO ZEILE 
FÜR DEN C 16 


Mit dem CHAR-Befehl 
des C16/116 kann man 
zwar Texte und Grafik- 
zeichen in den HIRES- 
Bildschirm schreiben, aber 
er hat zwei entscheidende 
Nachteile: Er kann die 
Zeichen nicht an beliebi- 
gen Orten darstellen und 
es sind keine Kleinbuch- 
staben möglich. Dieses 
Programm schafft Abhil- 
fe. In den DATA-Zeilen 
steht ein neuer Zeichen- 
satz. Diese Zeichen sind 
nicht 8 Bit (Punkte) 
breit, sondern nur 4. Mit 
je einem Punkt Abstand 
kann man so 64 Zeichen 
in einer Zeile unterbrin- 
gen. Der Trick besteht 
darin, die Zeichen aus 
den DATA-Zeilen direkt 
in einen String einzulesen, 
der dann mit GSHAPE 


dargestellt wird. Der Zei- 
chensatz umfaßt alle Zei- 
chen mit CHR$-Codes 
von 32-127 (s. Hand- 
buch S. 215). 

Damit das Programm nun 
nicht abstürzt, wenn ein 
falsches Zeichen gedrückt 
wird, werden die gültigen 
Zeichen in Zeile 130 in 
g$ zusammengefaßt und 
mit der INSTR-Funktion 
die Lage des Zeichens in 
g$ überprüft (Zeile 180). 
Ist es nicht vorhanden, er- 
hält man Null und das 
Programm überprüft nun, 
ob eine der Cursortasten 
gedrückt wurde. Mit de- 
nen kann man nämlich ei- 
nen Strichcursor an jede 
beliebige Stelle des Bild- 
schirms bringen und dort 
einfach losschreiben. Mit 
der RESTORE-Funktion 
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188 ifa$=dl$thengshapem$,x,y,4:x=x 
-d:gshapem$,x,y 

198 arinstr(g$,a$) :ifa=-dthen238 
288 restore 319+18*a:gshapem$,x,y, 
4A 

218 fori=1toß8:readc:mid$(s$,i,1)=c 
hr$(c) :next 

228 gshapes$,x,y,4:x=x+d:gshapem$, 
%,y,4:g0t0178 

238 ifa$=c3$thengshapem$,x,y,4:x=x 
+1:gshapem$,x,y,4 

248 ifa$=c1$thengshapem$,x,y,4:x=x 
-1:gshapem$,x,y,4 

250 er a a 
-1:gshapem$,x,y,4 

268 ifa$- thengsheni, x,y,‚A:y=y 
+1:gshapem$,x,y,4 

278 g0t017® 

288 graphic®d 

290: nen ee 7 
382 rem 
3:0, pen Se 
328 data®,2,0,02,2,0,2,2 

330 data64,64,64,64,0,0,64,8 

349 data89,82,80,0,2,0,2,2 

358 dsta90,80,248,80,248,80,80,08 
368 data32,112,192,112,24,112,32,0 
378 data144,144,32,32,64,144,144,0 
380 data96,144,144,96,176,152,104, 
1% 

398 data232,64,128,08,0,2,0,0 

400 data32,64,128,128,128,64,32,0 
410 data64,232,16,16,16,32,64,8 


<nn> 
<cl> 


<ck> 
<fn> 
<mo> 
<if> 


MINIZEICHEN 


s soonmb &® 
90 
9S9D8 


[07 
1% 
9 


530 


data®, 144,96,240,96,144,0,0 
data0,22,32,248,32,32,0,0 
data®,0,0,0,0,32,32,64 
dats0,2,0,112,0,0,0,0 
data®,0,0,0,0,96,96,0 

data®, 16,32,32,64,64, 128,0 
data96, 144,176,208,208, 144,96, 


data32,96,160,32,32,32,112,0 
data240,144,16,32,64,128,240,0 
data240,144,16,112,16,144,248, 


data16,48,80, 144,248, 16, 16,0 
data240., 128,240,16,16,144,240, 


data240,144,128,240,144, 144,24 


data240,144,32,64,64,64,64,0 
data96,144,144,96,144,144,96,0 
data96, 144, 144,240,16,144,96,0 
data®ß,0,96,0,0,96,0,0 
data0,0,232,0,0,32,32,64 
data16,32,64,128,64,32,16,0 
data®,0,240,0,240,0,0,0 
data128,64,32,16,32,64,128,® 
data96, 144,48,64,64,0,64,0 
data96, 144, 144,176, 176,128,96, 


dataß,0,240,16,240,144,240,0 
data®, 128, 128,240@,144,144,240, 


data®,0,96,128,128,128,96,® 
data@,16,16,240,144,144,240,0 
data0,0,240,144,240,128,240,® 
data, 112,64,224,64,64,64,0 
data®,0,96,144,144,112,16,224 
dataQ,128,128,240,144,144,144, 


dataß,32,0,96,32,32,112,0 
data®, 16,0,16,16,16, 16,224 
data0,64,54,80,96,80,72,® 
data, 96,32,32,32,32,112,0 
dataD,®, 128,240, 176,208, 176,0 
data0,2,160,80,80,80,80,0 
data0,0,96,144,144,144,96,0 
data®,®,240,144,144,248,128,12 


dataQ,,240,144,144,240,16,16 
data®,0,176,64,64,64,64,0 
data®,0,112,128,96,16,224,0 
data®,64,224,64,64,64,96,0 
data®,0,144,144,144,144,240,0 
dataQ,0,144,144,144,96,96,0 
data®,®,144,144,240,208, 176,8 
data®,®,144,96,96, 144, 144,0 
data@,®,144,144,144,112,16,224 


<gg> 
<cb> 
<hm> 
<lg> 
<fe> 
<en> 


<fj> 
<co> 
<ha> 


<bp> 
<hm> 


<dm> 


<ij> 
<dl> 
<kk> 
<ob> 
<cn> 
<ik> 
<im> 
<hl> 
<no> 
<fd> 


<on> 
<ch> 


<og> 
<mf> 
<eb> 
<jl> 
<pn> 
<lo> 


<lc> 
<ok> 
<mj> 
<de> 
<em> 
<aj?> 
SER> 
<pc> 


<om> 
<dc> 
<gj? 
<ia> 
<bh> 
<bi> 
<ej?> 
<ci> 
<ek> 
<db> 
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data®,0,240,48,96,192,240,0 
data112,64,64,64,64,64,112,0® 
data32,80,64,240,96,208,240,0 
data112,16,16,16,16,16,112,0 
data®,32,80,248,32,32,32,32 
data0,0,64,248,248,64,0,0 
data®,0,240,0,240,0,0,0 
dataß,0,0,240,240,0,0,0 
data96, 144, 144,240,144,144,144 
data224,144,144,240,144,144,22 
data112,144,128,128,128,144,1 
data224,144,144,144,144,144,2 
data240, 128, 128,248, 128, 128,2 
dats248,128,128,240, 128,128, 1 
data240,144,128,176, 144, 144,2 
data144,144,144,240,144, 144,1 
data112,32,32,32,32,32,112,0 
data240,32,32,32,32,160,64,0 
data?!4S,160,192,192,160,176,1 
data128,128,128,128,128,128,2 
data144,240,249,144,144,144,1 
data!44,208,208,176,176,144,1 
data96, 144,144,144,144,144,96 
data240, 144, 145,240, 128,128, 1 
data240,144,144,144,144,240,2 
data24®,144,144,240,160,144,1 


data240,144,128,240,16,144,24 


data248,32,32,32,32,32,32,® 
dats144,144,144,144,144,144,2 


data144,144,144,144,144,240,9 
data144,144,144,144,240,240,1 
data144,144,96,96, 144, 144,144 
dats144,144,144,240,96,96,96, 


data240,16,32,64,128, 128,240, 


« 


MENZEZEICHEN = 8. 


a <ph> 
1240 rem ===============2===22====== <jp> 
1250 rem 69691 bytes memory <oe> 
1260 rem 03854 bytes program <lk> 
1278 rem BQQ91 bytes variables <io> 
1288 rem 30000 bytes arrays <hp> 
1298 rem 90455 bytes strings <fo> 
1300 rem 12288 bytes graphic <ha> 
1318 rem 43983 bytes free (B®) <pp> 
1328 rem ===============2======22=== <dj> 
13308 rem = achtung !!! = <ap> 
1348 rem = das programm darf we- = <bf> 
1358 rem = gen zeile 288 nicht = Sie’ 
1368 rem = renumbert werden. = <gf> 
1370 rem =======================22= cpk> 


wird die DATA-Zeile aus- 
gewählt, die dem Zeichen 
entspricht und mit der 
MID$-Funktion werden 

. die entsprechenden Bytes 
in s$ ersetzt. 

Beim “Drucken“ des Zei- 
chens mit GSHAPE wur- 
de die EOR-Verknüpfung 
gewählt (,4). Daher wird 
automatisch auf hellem 
Untergrund dunkel und 
auf dunklem hell geschrie- 
ben. Mit RETURN 
springt der Cursor an den 
Anfang der Folgezeile 
und kann von da mit den 
Cursortasten positioniert 
werden. Will man die 
Buchstaben mit größe- 
rem Abstand darstellen, 
so verändert man din 
Zeile 120. 


PLATZPROBLEME 
BEIM C16 


Obwohl das eigentliche 
Programm klein ist, kann 
das Programm auf dem 
C16 ohne Erweiterung 
nicht in dieser Form ein- 
gesetzt werden, da die 
DATA-Zeilen zuviel Platz 


brauchen. Man kann sich 
jedoch einen Teil der Zei- 
len auswählen und die 
restlichen DATA-Zeilen 
löschen. 

Hierbei entspricht Zeile 
301 CHR$(32), 302 
CHR$(33)... 

Das Schreiben geht 
schnell genug, so daß man 
das Programm auch für 
ein eigenes Dateiverwal- 
tungsprogramm oder 
Textprogramm verwen- 
den kann. Man kann es 
auch beliebig abändern, 
indem man zum Beispiel 
den Zeichensatz ändert 
und die hier angewandte 

- Methode benutzt, um 

aus selbstdefinierten Sym- 
bolen Bilder zu machen. 
Oder Sie können die Zei- 
chen auch größer ma- 
chen und damit kompli- 
zierte mathematische 
oder chemische Formeln 
schreiben. 

Wer das Sonderheft über 
den C16 besitzt, kennt 
auch die Möglichkeit, den 
Zeichensatz zu verändern. 
Dieser Minizeichensatz 
läßt sich in Spielen effekt- 
voll einsetzen. 
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COMMODORE WELT 
MAILBON 


Tel: 089 / 18 39 51 
Parameter 8 N 1 
2 Stunden Online! 


COMMODORE 
HOTLINE 
Mittwochs 

15.00 - 19,00 Uhr 
Tel: (089) 129 80 18 


HEROS-DREI GEGEN 


Drei Männer einer Spezialeinheit werden mit einem 
Hubschrauber abgesetzt, um die von einer Brandkata- 
strophe gefährdeten Menschen zu evakuieren. Sie 
müssen über einen sehr guten Orientierungssinn, 
Koordinationsvermögen und Risikobereitschaft ver- 
fügen, um die Aufgabe zu erfüllen. 

In einer vereinzelt besiedelten Gegend ist ein Feuer 
ausgebrochen, wodurch mehrere Menschen von den 
Flammen eingeschlossen sind. Eine Eindämmung des 
Feuers ist sowohl in östlicher als auch in westlicher 
und nördlicher Richtung gelungen. Dagegen treibt 
nachts ein scharfer Wind aus Richtung Süden das 
Feuer unaufhaltsam weiter. 

Um die eingeschlossenen Bewohner dieses Areals 
zu retten, werden 3 Männer einer Spezialeinheit 
(Spieler) mit einem Hubschrauber abgesetzt. 

Sie sollen alle Betroffenen aus ihren Häusern holen 
und sie zur Evakuierung zum Hubschrauber bringen. 

Die Spiellandschaft besteht aus einer Fläche von 
20 mal 40 Quadraten. Je nach Art dieser Quadrate er- 
fordert das Durchqueren jeweils ein bestimmtes Maß 
an Zeit und Kraft. Auch die Brennbarkeit ist unter- 
schiedlich. Zudem ist mit verschiedenen Landschafts- 
quadraten eine Besonderheit verbunden. Einzelheiten 
können der Landschaftsliste entnommen werden. 

Jeder der 3 Retter (Spieler) hat eine besondere 
Eigenschaft, die durch mitgeführte Gegenstände be- 
dingt ist: 

1. Spieler: Das Boot ermöglicht eine Wasser-Durch- 
querung (pro Person 10 Min.) 

2. Spieler: Die Strickleiter erlaubt ihm das Überwin- 
den eines Berges in 60 Min. (statt 180 
Min.) 

3. Spieler: Er bleibt durch seine Pistole im Wald von 
Wölfen unbehelligt. 


Zum Spielverlauf: 

Zuerst wird gemeinsam das Landefeld des Hubschrau- 
bers bestimmt. Es bildet des Ausgangspunkt für alle 
3 Spieler. 

Danach folgen alle weiteren Kontrollen über Joy- 
stick (Port 1). 

Derjenige Spieler, welcher am Zuge ist, sieht die 
Landschaft, in der er sich befindet, ausschnittsweise 
und seitlich abgebildet. Er kann dabei zwischen der 
WEST-OST-Achse (Blickrichtung NORD) und der 
SÜD-NORD-Achse (Blickrichtung WEST) wählen 
(FIRE). Seine genaue Position wird durch Pfeile am 
Boden der Landschaft angezeigt. LI/RE-Bewegungen 
mit dem Joystick ermöglichen eine Positionsverschie- 
bung in die gewünschte Richtung. Nach der Abrech- 
nung von Zeit und Kraft erfolgt der nächste Spielzug. 
Weiteren Handlungsmöglichkeiten: 

— Wird der Spieler in einem Wald von Wölfen ange- 
griffen, hat er die Wahl auf Nahrung (Opfer) oder 
auf Kraft (Kampf) zu verzichten. 


DAS INFERNO 


— Gelangt der Spieler in ein Haus, schließen sich alle 
Hausbewohner automatisch dem Spieler an. Da- 
nach kann er die im Haus vorhandene Nahrung 
mitnehmen, oder eigene Nahrung für Mitspieler 
dort deponieren. 

— Durch das Einlegen einer Rast (Joystick nach 
hinten + FIRE) kann er durch Nahrungsverbrauch 

- seine Kräfte wieder auffrischen. Je mehr Personen 
sich dem Spieler angeschlossen haben, umso mehr 
Nahrung wird zur Auffrischung der Kraft benötigt. 
Die Kraft kann über ein gewisses Maß (Sternchen- 
kette voll!) nicht regeneriert werden, so daß ein 
Zuviel an Nahrungsverbrauch vergeudet wäre. 

— Beim Erreichen des Hubschraubers kann dieser neu 
positioniert werden. Hierbei muß darauf geachtet 
werden, daß eine Landung im Feuer oder auf Häu- 
sern zum Spielabbruch führt. Durch den Hub- 
schrauber kann der Spieler seine mitgeführten Per- 
sonen abladen und beendet seine Spielzüge inner- 
halb der Spielrunde. 


MIT FÜNF KILO NAHRUNG VERSEHEN, HABEN 
SIE ZEHN STUNDEN ZEIT, DIE 
EINGESCHLOSSENEN ZU RETTEN 


Am Anfang jeder Spielrunde (Tage) steht jedem 
Spieler ein Zeitkontingent von 600 Minuten zur Ver- 
fügung. Als Proviant bekommt er am Spielanfang 5 kg 
pe Er beginnt ferner mit 4/5 seiner möglichen 

alt. 

Der Zeitverlust ist durch die Landschaftsquadrate 
fest vorgegeben. Der Kraftverbrauch wird außer von 
den Quadraten auch von der Proviantmenge be- 
stimmt, deren Mitführung den Spieler belastet. Auch 
dieser Wert wird in ein Verhältnis zur Personenzahl 
gesetzt. 

Sobald die Zeit eines Spielers verbraucht ist, wird 
seine aktuelle Position in Bezug auf die ihn umgeben- 
de Landschaft aus der Vogelperspektive dargestellt. 
Danach ist der nächste Spieler an der Reihe, der dann 
Se Landschaft statt von oben wieder seitlich 
sieht. 

Haben alle 3 Spieler ihre Zeit verbraucht, bricht die 
Nacht herein und das Feuer breitet sich gemäß den je- 
weiligen Landschaftsquadraten aus. 

Weder bewohnte Häuser, noch Spieler, noch der 
Hubschrauber dürfen vom Feuer erreicht werden. 

Wenn dieser Vorgang abgeschlossen ist, beginnt ein 
neuer Tag (Spielrunde) und jedem Spieler stehen wie- 
der 600 Minuten zur Verfügung, um seine Spielzüge 
machen zu können. 

Sobald alle vermißten Personen zum Hubschrauber 
gebracht wurden (kontrollierbar durch die. Zeile am 
unteren Bildschirmrand), haben die Spieler ihre Mis- 
sion erfolgreich abgeschlossen. 
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« 


| | LISTING | 


Die Gründe für einen Spielabbruch sind numeriertt Undimensionierte Variablen 
und stehen in Klammern neben der entsprechenden 


Meldung: A,B,C,D = Universelle FOR-NEXT-Variablen 
1 = Spielfeldüberschreitung DA = READ-Variable zur Feuerfrontberech- 
2 = zu wenig Kraft nung 
3 =im Wasser versunken DB = READ-Variable zur Festlegung der 
4 = im Sumpf eingesunken Feuerstärke 
5 = vom Feuer erfaßt - DF = Kürzel für FE./. () 
6 = den Wölfen zu wenig geopfert DZ = Zähler für Feuerfront 
7 = Hubschrauber verschollen (Haus oder Feuer) HB = Obere Begrenzung für J 
8 = Feuerfront erreichte Spieler HH = Hubschrauber-Eingabe Horizontal 
9 = Feuerfront erfaßt Hubschrauber HK = Markierung für Haus 
10 = Feuerfront erfaßt bewohntes Haus HV = Hubschrauber-Eingabe Vertikal 
Das hiermit vorliegende Programm “HEROS” für J = Joystick-Abfrage 
den C16 ist formal den Grafik-Adventures zuzuord- KR = Kraftrate 
nen, hat aber von der Spielweise her das Charakteri- L = Max. Länge der Landschaftsanteile 
stikum eines Strategie-Brettspiels. Ike = POKE-Ausgangspunkt für Kartendar- 
Der Grund hierfür liegt darin, daß ich eine ausge- stellung 
sprochene Abneigung gegen Adventures habe. Vor NE = Markierung für neuen Bildaufbau 


allem das endlose Suchen nach Schlüsselwörtern und PG 
die schier ewige Spieldauer machen bei mir jeden PT 
Trieb zunichte. Folgedessen bemühte ich mich, ein PU 


Gerettete Personen 
Gesamtzahl der zu rettenden Personen 
Personen Unterwegs 


Programm zu schreiben, bei dem der Lösungswegvon RI = Richtungsmarkierung 

vornherein feststeht und der Schwerpunkt mehr bei S = Senkrechte Spielerposition (grafisch) 
der Strategie liegt. Der zweite Aspekt, der mich bei SB = Untere Begrenzung für J 

fast allen Computerspielen stört, ist das Einzel- SP = Spieler-Nr. 

kämpferische und Kommunikationsunterdrückende VH = Ausgangsposition der Feldbelegung 
“HEROS” kann deshalb allein, zu zweit oder zu dritt Y = Begründung für Spielabbruch 
gespielt werden, wobei die Spielhandlung geradezu Z = Zeit 

zur Kommunikation zwingt. Ein Novum dürfte es ZR = Zeitrate 


sein, daß bei “HEROS” alles Bemühen auf ein Mit- Z1-Z4 = Zufallsvariablen 
einander statt auf ein Gegeneinander hinausläuft. Da- 
mit aus dem Spiel kein wochenlanges Frustrations- 
training wird, beläuft sich die Spiellänge auf ca. 
90 Min. 

Jeder Spieler sollte bei “HEROS” über einen sehr 
guten Orientierungssinn, Koordinationsvermögen und 
Risikobereitschaft verfügen. Dies vorausgesetzt, be- 
steht eine faire Chance, die Spielaufgabe zu erfüllen. 
Anfangs wird die Spielaufgabe sehr erleichtert, wenn 
man sich eine Karte der Landschaft anlegt. 

Größte Mühen bestanden in der Verwirklichung der 
Spielidee in Hinblick auf den geringen Speicherplatz. 
Trotzdem wurden an der Grafik oder am Spielge- 
schehen keine Kürzungen vorgenommen. Platz ent- 
stand durch die Numerierung von Spielbeendigungs- 
gründen, durch Verzicht einer programmierten An- 
leitung und aus der Zufallserrechnung der Spielland- 
schaft. Letzteres sorgt zudem für mehr Abwechslung. 


SPIELANLEITUNG (LISTE DER LANDSCHAFTSQUADRATE) 


FARBE BEDEUTUNG ZEIT KRAFT BRENNBAR BESONDERHEITEN 

Grün Rasen 30 Gering Gut Keine 

D.-Grün Wald 60 Mittel Gut Überfall durch Wölfe möglich 

, 28 Mittel Nur einzeln durchquerbar 

Blaugrün Sumpf 60 Groß Schlecht Nur mit Boot durchquerbar (Zeit 

Blau Wasser 10 Groß i pro Person) 

Gelb Sand 40 Mittel Mittel Keine — 

Braun Berg 180 Groß Schlecht Mit Strickleiter nur 60 Min. 
Mittel Im Haus sind Personen und 

Rot Haus 30 Gering Nahrung 

Rosa Feuer _— _— = Nicht durchquerbar 
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B ren Heros mrersrseerret le 
"2 rem {p) 7/87 commodore welt 
38 ven. een 
!2 rem {c) 1987 peter bergen 
=2 rem hildesheim 
Se rem 
"2 rem basic v3.5 
=2 rem c16/116/plus4 
3e rem ========2========== ===> = 


"22 gosub 2262:g0t02088 

“ı2 gosub 2569:poke65298,8:poke652 
>3,68:printbk$; :g0to238 

‘29 11$=gr$+"ACAC"+gr$+"BOBD"+bk$+ 
"ErEF"+1r$+26$+26$+26$+26$8:g0t0958 
"3a 11$=br$+"..T."+br$+"PQRS"+br$+ 
"LMNO"+1r$+z26$+z26$+26$+26$:9g0t0958 
‘4a 11$=re$+tzf$+tzr$tzrg+rzußtlg$+"G 
-HI"+1g$+"CHUK"+Ir$+z26$+z6$+z6$+z6 


3:g0t0958 

‘58 11$=wh$+"...."+bK$+"UVY "+bk$+ 
"WX.."+1r$+26$+26$+26$+26$:g0t0958 
168 11$=wh$+"...."twh$+"...."+wh$t 
"...."+re$+z1$+21$+z21$+21$:g0t0958 
170 11$=wh$+"...."+wh$+"...."+wh$+ 


...."+b1$+z0$+z0$+20$+z0$:goto95Q 
188 11$=wh$+"... 


."+wh$+"...."+wh$+ 
"..."+tye$tz1l$+z1$+z1$+z1$:g0t0958 
190 11$=wh$+"...."twh$+"...."+wh$+ 
"u.."+g2$+z1$+z1$+z1$+z1$:goto95Q 
208 11$=wh$+"...."+wh$+"...."+wh$+ 
"...."+1r$+z6$+z26$+26$+26$:g0t0958 
210 data53,10,70,3,103,5,76,5,57,5 


‚98,10,66,5 

220 data53,60,4,70,10,8,103,48,6,7 
6,98,8,57,180,18,90,238,2,66,380,2,8 
‚38,2 

230 dimf%(20,40),h%4,20),5% 3,5), 
d%L 9) ,n$(3) ,12$(4),13$(4) ,fe%l20), 
q$( 3) 

240 a=rnd( -ti):q$C1)=zg$:g$(2)=zu$ 
:q${ 3) =z4$ 

258 fora=1t0208:fe%la)=1:next:color 
4,1: coler! .„3,3:vol6 

268 scenclr:gosub?9B®:gosub 1960: gos 
ub1448 

278 forsp=1t03:s% sp, 1)=hv:s%[ sp,2 
)=hh:s% sp,5)=1:5%l sp, 3)=75:s%[ sp, 
4) =508:next 

280 ri=1:sp=1:z=600:gosub 1858 

298 gosub83ß:s5p=2:5=8:10=3392:goSsu 
b1610:sp=3:5=16:1c=3712:gosub161Pß: 
sp=1:s=2:1c=3872 

300 ifri=2thengoto38d 

310 gosub45® 

328 ifz<ithengosub161%:g0t0768 

338 ifjoy( 1)=7thens%l sp, 1)=s%( sp, 1 


<ic> 
<oe> 
<ae> 
<eg> 
<nb> 
<ah> 
<nl> 
<ki> 
<aa> 
<fd> 
<nk> 
<jo> 


<bf> 


<ld> 
<ng> 
<oc> 
<kp> 
<jib> 
<mo> 
<gk> 


<pn> 


<mj?> 
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-1:gosub519:gosub830:g0t057® 
ifioy{ 1)=3thens%[ sp, t)=s%[ sp, I 
:gosub520:gosub832:g0t057®8 

2®2 ifjoy( 1) =128thenri=2:goto23BBd 

® ifjoy( 1)=133thengosub 1398 

8 goto228 

0 gosub478 

ifz<eithengosub 1618:goto76® 
ifjoy( 1)=7thens%( sp,2}=s%[ sp,2 
:gosub51ß:gosub83ß:goto5”7% 
ifjoy( 1)=3thens%( sp,2)=s%l sp,2 
:gosub530:gosub83d:goto57B 
ifjoy( 1J)=128thenri=1:g0t0318 
ifjoy{ 1)=133thengosub 1398 

' g0t0398 

458 gosub498:gosub5Sßß:gosubB3ß:gos 
ub55®@:char!,8,s,re$+rn$+"west-ost" 
+rf$ 

468 gosub?5ß:return 

470 gosub499:gosub5BßR:gosub83f:gos 
ub558:char1,8,s,re$+rn$+"sued-nord 
"+rf$ 

480 gosub?52:return 

498 poke2922,s:poke2823,8:poke2821 
‚s+6:poke2824,27:scenclr:return 

580 char!,12,s+6,rn$+re$+z8$+tyg$tz 
8$+yg$+rf$:return 

510 fora=1t04:13$(a)=mid$( 12$( a), 
‚t):next 

528 forb=-Sto2step-1:gosub56ß:next: 
return 

538 fora=1t04:13$(a)=mid$( 12$(a),6 
‚i):next 


> 
iS 


548 forb=6to11:gosub56@:next:retur 
n 
558 c=1:fora=s+2tos+5:char1,0,a,"" 


:printmid$(12$(c) ,6,35) :c=c+1:next 
return 

560 c=1:fora=sst2tos+5:char1,8,a,13 
$(c):print;mid$( 12$(c),b,35) :c=c+1 
ınext:return 

578 restore228:v=s%[sp,1):h=s%{ sp, 
2) :ifv<iorv>28orh<torh>4Aßtheny=1:g 
001778 

5880 fora=-itoß:readb:readce:readkr:i 
ff%lv,h)=bthenzr=c, 

598 next:ifs%( sp,4)<@thengoto61® 
602 kr=kr+int(((s%lsp,4)/s%Csp,5)) 
/58)+.5) 

610 iff%Lv,h)=5S3thengosub 1948 

628 iff%lv,h}=7Bandsp<>itheny=3:g0 
t0177® 

630 iff% v,h}=?@thenzr=zr*s%( sp,5) 
648 iff%lv,h)=76ands%( sp,5)>itheny 
=4:g0t01778 

65@ iff%Lv,h)=57andsp=2thenzr=int( 


<ka> 


<ei> 
<in> 
<po> 
<ni> 
<kl> 
<cj? 


.<oh> 


<la> 
<mf> 
<mk> 
<fd> 


<fm> 
<of> 


<1ld> 
<coi> 
<op> 
ng> 
<pk> 
<pd> 
<lc> 


<eh> 


<lf> 


<fb> 
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zr/3) 

660 iff%Lv,h)=1907theny=5:g0t01778 
678 iff%Lv,h)=®thengosub 1328 

680 iff%Lv,h)=66thengosub!130 

698 s%l sp,3)=s%l sp,3)-kr:ifs%(l sp, 3 
})<@thenchar1,29,s+5," ":y=2:goto1? 


ifne=1Ithenne=B:gosub?38 
z=z-zr:gosub759:gosub818 
ifri=1thengoto328:elsegoto39d 
ifri=1thengosub458:elsegosub47 


748 gosub?58:return 

7580 char1,12,s,re$+rn$:printusing" 
#H#" ,;,z:sound1,800,5:return 

768 ifsp=1Llhensp=2:s=8:1c=3392:ri= 
1:2z=6800:g05ub83%:g0t0309 

778 ifsp=2thensp=3:s=16:1c0=3712:ri 
=1:2z=609:gosubß22:g0t0308 

788 gosub194B:gosub167%:g05sub195B: 
a 


798 sp=1:5=0:10=-3092:g0osub'!5'12:5p= 
2 8 1a 0302 ash EIER" 3Ie =16: 
1c=3712:g0osub1610 

882 sp=1:3=0:1c=3092:ri=1:z2=69%:go 
sub838:g0t0389 

87024801, 2955 NT aaa aa ".fora 


=29t029+int(s%[ sp,3}/!®) 

820 chari,a,s+5,re$+"*":next:retur 
n 
839 
29 

848 fora=1t04:12$(a)=""inext 

858 fora=1t09 

860 ifd%la) -53then!20 

870 ifd%l a) =59then!3d 

880 ifd%l a) =66then 142 

899 ifd%la)=Bthen!5R 

908 ifd%l a) =197then!6R 

918 ifd%la)=?dthen172 

928 ifd%la)=1803then139 

938 ifd%l a) =?76then19B 

3949 Er 

958 forb=1t04:12$(b)=12${b)+mict( 1 
18.,9°6-4,8)! sur next:return 

362 b=1: Fiss“ s%Ü sp, 

4 

978 ee 3 197 

98 

980 dA%Lb}=F “a, 3% sp,2)) 
999 b= b+1:next:return 
128 b=1:fora=s%l sp,2) -4t 
+4 
810 
1232 
1220 d%lb)=F% s% sp,?),a) 


ifri=tithengosub96Z:elsegosub!? 


1) -4t05%f sp, 1) # 


:50:09 


er 
[W} 
[03 
ss 
u 
u 
Tı 
rJ 
— 


ifa<lora>4dthend%( b) =187:goto 


<I0 


038 a. .n 

1848 zi=int(rndl 1}* 

Sthenreturn 

1858 fora=it029:b=int(rnd{ 1)*980): 

sound2,b,4:next:z2=int{ rnd( 1)*10) + 

1 

1060 gosub49®:printre$"woelfe grei 

fen sie an!" 

12?0 print"waehlen sie zwischen:" 

print:print"li=kampf":print"re=opf 

er" 

1288 ifjoyl 1)=?thens%l sp,3)=s%l sp, 

2)-z2*2:ne=1:gosub1920:return 

1898 ifjoy( 1)=3thens%l sp,4)=s%l sp, 
-( z2*18) :gosub111®:ne=1:g0sub!98 

d:return 


:ifz1<>torsp- 


1100 g0to1080 

1118 ifs%lsp,4)<1itheny=6:g8g0t01778 
1128 return 

1130 sound?!,819,29:sound1,854,28:s 
ound!,881,20 

1149 fora=1t020:ifs%ls2,1)=h%l1,a) 


ands%{ sp,2) 
1152 next 
1160 gosub490:printre$"im haus fin 


Hl 2 althenfkss 


den sie vor:" 
1170 gosub1298:5%l sp,5}=s%lsp,5)+h 
%.3,hk) :pu=pu+h%(3,hk) :h%(3,hk)=® 


1182 hb=h%( 4,hk) /10:5b=s%( sp,4) /19 
=9: gosub!Z2 218 


ie h%LA,hk)=h%l4,hk)-j*19:s%lsp, 
\=a%f 


4)=s%l sp,A)+j*19:gosub490:gosub190 
d:gosub192 

1228 ne=!:return 

1272. char1,9,8#5, "re f ee / fi 
re=annahme":g0osub1288 

1228 ifjoy( 1)=3thenj=jt1:gosub 1260 


1238 ifjoyl 1)=?9thenj=j-1:g0osub1278 
1248 ifjoyf 1)=128thengosub1928:ret 
urn 

12580 20012208 

1260 ifj>hbthenj=j-1:return 

1278 ifj<-sbthen j=j*1:return 

128@ char?t,11,5+6,"":orintusing" #4 
##" ;,j:return 

1298 printh%(3,hk); "per: 


snen":prin 
Br 


th% 4,hk}) /1Q0;"kg nahrungsmittel”:r 


eturn 

1302 fora=1t029:sound?!, 10,2: sound! 
‚4@,4:next 

1219. pg=gg+s%l 5p,5) -1:pu=pu-s%l sp, 


5)+1:5% sp,5)=1:gosub 1988:g0sub192 
2 

13290 ifpg=stthengstu!38ß 

1238 zosub499 print; "kurs: w/o=";s 
%sp,1);"# s/n=";s%lsp,2) 


<oe> 


<hl> 


<fm> 


<lb> 
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m 


>22 char1,d,s+t2, 
":5b=-1:hb=20:j 

3=-1t01@®:next 

>58 a=j:chari,®,s+2,"neuer. kurs s 
„z<c/nord":hb=40: j=1:gosub1210:b=j 
Ss2 iff%la,b)=66o0orf% a,b) =127then 
=7:g0t01778 

278 f%L s%lLsp,?) 
5) =® 

‘258 ne=1:z=Bd:return 

‘2939 :sound1,818,28: sound! 
zund1,854,28 

‘222 gosub498:print"wieviel nahrun 
Sa 1) „verbraucht werden?"c 


gosub121B:fo 


‚s®xlsp,2))=98:f%la 


‚881,20: 


2180 hb=s%[ sp,4} /10:sb=-B: 
ı218 


‘428 s%l sp,33 =s%l sp,3)+int( ( jF1B/s 
=(sp,5))+.5) :ifs%( sp,3) >9@thens%l s 
2,3) =98 

‘438 s%lsp,4)=s%L sp,4) -j*10:2=z-38 


sub1988:gosub819:gosub73B:gosub 
a ran 

1448 fora=-1t020:forb=1to40:f%( a,b) 
=-9ß:next:next 
1458 vh=15:1=5:forb=2t040:gosub154 
(1) 
‘460 fora=z2to( z2+z3): 
ext:next 
1470 vh=32:1=8:fora=1t028:g0sub 154 
(4 
1488 forb=z2to( z2+z3) :f%a,b}=z4:n 
ext:inext 
1498 f%Chv,hh)=B:fora=1t028 
1588 h%l1,a)=int(rnd( 1)F20) +1: 
‚a)=int(rnd( 1)*48) +1 
1510 iff%Ch%1,a) ,h%l2,a))=Othengo 
to1508 
1528 F%Ch%L1,a) ,h%l2,a))=66 
1538 h%(3,a)=int(rnd( 1)*5) +2 
+h%( 3,8) :h%( 4,8) =int(rndf 1)? 
+10@0:next:return 
1548 zi=int(rnd( 1)*2)+1:ifz1=B@then 
return 
1558 z2=int(rnd{ 1)*vh) +1:z3=int(rn 
d(2)*1)+?:z4=int(rnd( 1)*7) +1 
1560 ifz4=1lorz4=Sorz4=Ithenz4=53:r 
eturn i 
1572 
1588 
1598 


f%la,b}=z4:n 


hALE 


:pt=pt 
28) 10 


ifz4=2thenz4=978:return 

ifz4=3thenz4=183:return 

ifz4=4thenz4=76:return 

1688 ifz4=S5thenz4=-597:return 

1610 gosub498:fora=s%l sp, 1)-3tos% 
‚1)+3:forb=s%( sp,2)-1Btos%( sp,2) 

+12 

1628 ifa<toras>2ßorbstorb>4ßthenpok 


neuer kurs west/ 
=1; 


<03> 
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elc-1824,107:pokelc, 168:g0t01648 
1630 pokelc-1024,f%(a,b);pokelc, 16 
2 ; 


1648 lc=lc+1:next:lc=lc+18: HeRR 
1650 color1,7,4:char1,24,5+1,"w":c 
hart, 24,5+2,"i" :char1,2 22.8+3," S-*- 
Kr 


SER char1,24, ii "SE :6hapl, ‚24,s+5 

'o";chari,18,s+3, ge return 
1678 da = 1:forb=1to4:df= 
fe%la):restore218 

1688 ifdf>4ßthendf=48 

1698 iff%la,df) =66thengosub 1758 
1788 forc=1to3:ifa=s%lc,1)anddf=s% 
e,2)theny=8:g0t01778 

1710 next:iff%la, a al 
1770 

1728 forc=1to?:readda: FEsduh iff%l 
a,df}=dathendz=oz+db 

17238 next:ifdz>9thenfe%[ a)=fe%la)+ 
1:f% a,df)=1079:dz=dz-9 j 

1748 next:next:return 

1758 fore=-1to2B:ifa=h%( 1,e)anddf=h 

% 2,e)andh% 3,e})>Btheny=10:g0t0177 
d 

1768 next:return 

1778 fora=508toißstep-20:sound!,a 

4:soundi,a+188,2:next 

1788 scnelr:print;c4$c4$c4$c3$c3$r 
e$"leider scheiterte ihr einsatz! 
Era" 

1798 gosub1920:9g0t01820 

1888 sound1,596,28:sound1,685,2®:s 
ound!,739,28:sound1,8190,4® 

1812 scnelr:char1,8,3,re$+fl$+"sie 
haben es geschafft!"+fo$:gosub192 


182@ char1,14,6,"fire = start" 
1838 ifjoy( 1)=128thenscncelr:run 
1840 g0t01830 

1858 fora=dto23:printrnfbk$"...... 
"rf$:next 

1868 forb=-Bto22stepß:fora=btob+t6:c 
hard 7" a4 28 ag pe ae as 


1870 printog#" "nt"... 5 
ınext:next 

1888 color1,7,4:b=1:fors=8to22step 
8:color1,7,4:char1,38,s,n$(b) :gosu 
b1908 

1898 char1,29,5+5, re$g+" Het" ıc 
har!,3®, s+6 ‚g8(b): b=b+1:next:s=d:g 
osub1928:return 

1988 char1,30,s+2,b1$+"p:" 
ing" ##HH#" ,s%lsp,5) 


:printus 


<lo> 
<ep> 
<lj> 
<oo> 
<ij?> 
<eb> 
<ne> 
<gf> 
<ag> 
<af> 
<lp> 
<om> 
<fa> 
<of> 
<dp> 
%Ej> 
<ol> 
<gb> 
<cf> 
<ca> 
<hg> 


<ec> 
<hg> 


<dc> 


<lo> 


<nn> 
<km> 


<ek> 


<hn> 2 
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1918 char1,30,s+3,"n:":printusing" 

BAHR", s%lsp,4) /18:return 

1928 gosub1958:char1,0,24,re$:prin 
t;"gesamt:";pt;" gefunden:";pu;" g 

erettet:";pg;c2$ 

19380 return 

1948 char1,8,24,re$+" in der nacht 
brennt das feuer weiter!"+c2$:ret 
urn 

+950- char, 0524, „as: nee a 


19682 scnelr:printc4$c4$,c1$c1$c1$" 
ihr hubschrauber landet.",,c4$c4$f 
1$c3$c3$; 

1970 print"bitte warten!"fo$:retur 
n 

1988 poke239,9:fora=1to3 

1998 printc4$c4$"name des";a;". 
elers":g0sub2958 

2880 iflen(n$(a))>1dthenprintc4$c4 
$f1$"zu lang!"fo$:g0t01999 

2818 next:printc4$c4$"landekoordin 
aten:" 

2028 printo4$"west / ost (1-20)";: 
inputhv:printc4$"sued / nord (1-48 
)";:inputhh 

2838 ifhv<torhv>28orhh<torhh>4ßthe 
ngot0o2028 

2848 return 

2050 printc2$left$(gqr$,28) ;:inputn 
$(a):return 

2068 scnekrschari,15,5,"h er 8 8" 
2078 char!,8,8,"drei gegen das inf 
erno":return.. 

2088 restore2149:fora=832t0861:rea 
db:c=c+b:pokea,b:next:color4,2 
20398 sys822:poke55,255:poke56,59:r 
estore2178 

2188 readc:ifc=-1thengoto21298 

21190 fora=Bdt0o7:readb:pokec*8+15360 
+t3,b:next:goto218® 

2120 key1,"del-1090"+chr${( 13) +"deL2 
869-2558"+chr$( 13) +"delL2788-"+chr$ 
(13)+"run"+chr$({ 13) 

2130 poke2035,9:5ys56364:printchr$ 
(5) ;:end 

‚2148 data162,2,189,9,228,157,8,68, 
189,0 

2158 data209,157,0,61,189,0,218,15 
7,20,62 2: 

2168 data189,0,211,157,0,63,202,28 
8,229,96 

2170 data65,0,0,3,13,14,53,59, 111 
2180 data66, 122,87,53,55,74,62,13, 
8 


spi 


"2190 data67,0,96,80,222,238, 187,17 


<ho> 


<fo> 
<lb> 


<bo> 


<la> 
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3,119 

2200 data68,189,215,181,254,238,18 
4,104,224 

2210 data69,1,5,3,1,1,1,3,3 

2220 data?9,224,192,192,192,192,19 
2,224,248 

2230 data?1,31,25,25,31,25,25,31,3 
2240 data72,255,57,57,255,57,57,25 
5,255 

2250 data?3,248,56,56,248,56,56,24 
8,248 

2260 data?4,252,60,60,252,63,60,28 
2,252 

2270 data75,24,24,24,24,24,24,24,2 
4 N 

2280 data?6,21,31,47,59,95,125, 175 
‚255 

2290 data77,237,239,247,246,251,25 
1,253,253 

2300 data?8,255,255,223,255,255,25 
5,191,255 

2310 data?79,224,240,240,248,248,25 


2,254 ,255 

2320 data890,0,0,0,0,3,5,11,15 

2330 data81,1,2,3,5,7,138,207,218 
2340 Jata82,254,255,191,255,223,25 


’ 
5,255,127 

2350 data823,0,0,0,128,128,192,192, 
224 

2360 data84,0,0,0,48,120,188,252,2 
22 

2370 data85,63,0,9,3,4,8,8,9 

2380 data86,255,24,24,255,53,53,12 
7,255 

2390 data87,15,15,15,7,1,2,70,63 
2408 data88,255,255,254,252,240,16 
‚25,254 


2410 data89,243,3,7,255,255,255,19 
2,0 

2420 data191,0,0,2,253,254,19,15,3 
2430 data108,64,54,64,64,64,64,64, 
64 

2440 data97,24,48,120,255,255,255, 
255,255 


2450 data112,0,1,3,5,15,23,29,127 
2460 data103,85,170,170,255,255,25 
5,255,255 

2470 data1!3,15,52,118,247,8,255,2 
55,126 

2480 data118,120,255,25 
55,255 ,255 

2498 data!23,69,236,60,26,60,26,60, 
36 


5,255,255,2 


2508 data!21,12,12,140,255,255, 140 
‚sa,18 


HEROS 


zn 
= $) 


st, 
_cU 


data124,0,255, 
‚255 
data127,0,128,64,224,208, 120, 


278,254 


ee 
Ü 


' 
( 
l 


} 
I 
> 


S565999595 9909890969 » 


90 RU 


— O8 DO 


ann nn (01 ın IN Ende 


& 9.0) EI 8 u ID 


nano 


NWS WWW M WKN m mM WW N mM Mu Day 


3) 
oO 
oO 


2868 
2870 
28808 
2898 
2988 
2910 
2928 
29308 
2948 
2958 
2968 
2978 
2980 
2998 
3288 
318 
3228 
3238 


data98,17,33,48,25,26, 1 


data-1 
rem nachspann 


119,221, 


rem farbceodes/steuercodes 


wh$=chr$( 095) 
rn$=chr$( 918) 
c3$=chr$( 029) 
bl$=chr$( 03?) 
fo$=chr$( 132) 
c2$=chr$( 145) 
br$=chr$( 149) 
g2$=chr$( 152) 
ce1$=chr$({ 157) 


ıc4$=chr$( 817) 
:re$=chr$( 028) 
:gr$=chr$( 838) 
:f1$=chr$( 138) 
:bk$=chr$( 144) 
:rf$=chr$t 146) 
:Ir$=chr$( 150) 
:1g$=chr$( 153) 
:ye$=chr$( 158) 


rem zeichensatz/graphik 


zB$=chr$( 16‘) 
z48$=chr$( 165) 
28$=chr$( 169) 
zg$=chr$( 179) 
zg$=chr$( 187) 
zu$=chr$( 191) 
rem FHFHRr 
for q=1 to 48 
ar$=qr$+c3$ 
next q 

return 

rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem == 
rem == 
rem == 
rem == 
rem == 
rem == 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


21924 


punkte in 


bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
memory voll 


bitte blanks statt 


:z1$=chr$( 162) 
ız6$=chr$[{ 167) 
:zf$=chr${ 176) 
:z1l$=chr$( 182) 
:zr$=chr$( 188) 
ıyq$=chr$( 223) 
zeichenfolgen 


memory 
program 
variables 
arrays 
strings 
z2.-satz 
genutzt 


achtung achtung == 
programm loescht== 
sich teilweise. == 
deshalb vor dem == 
start unbedingt == 
sichern 


It! = 


folgenden 


zeilen setzen: 
1380-208,810, 
1858-1878, 


1408 
1958 


zeilen duerfen ohne 
entsprechende sen- 
derung von zeile 2128 
nicht umnummeriert 


255,119 


13,119 


<bk> 
<ka> 


<jd> 
<ed> 
<00> 
<ig> 
<ib> 
<gp> 
<do> 
<ne> 
<ik> 
<gi> 
<fg> 
<eh> 
<oc> 
<fa> 
<hl> 
<mh> 
<ce> 
<kc> 
<am> 
<hg> 
<j0> 
<jf> 
<na> 
<jp> 
<eh> 
<eb> 
<fi> 
<pl> 
<af> 
<]f> 
<nb> 
<kf> 
<jf> 
<li> 
<di> 
<bh> 
<fp> 
<mo> 
<hn> 
<hk> 
<dg> 
<mg> 
<pg> 
<cj? 
<nd> 
<pe> 
<gk> 
<fk> 
<fb> 
<jg> 
<hh> 


3248 rem werden 
3052 rem 


MATHEMAX 


Das Programm Mathemax 
V1.0 ist, wie ich meine, 
ein sehr hilfreiches Mathe- 
matikprogramm. Wenn 
man bei irgendwelchen 
Berechnungen schon ein- 
mal lange nach Umrech- 
nungsfaktoren gesucht 
hat, um einen Wert einer 
Einheit in den entspre- 
chenden Wert einer ande- 
ren Einheit zu konvertie- 
ren, wird man sich statt 
dessen in Zukunft dieses 
einfachen Programms be- 
dienen. 
Mit dem obligatorischen 
“RUN“ steigt man in das 
Programm ein und landet 
nach dem Intro im Haupt- 
menü. Dort kann man 
zwischen folgenden Mög- 
lichkeiten wählen: 
— Umwandlungen von 
Druckeinheiten 
— Umwandlung von 
Zeiteinheiten 
— Umwandlung von 
Krafteinheiten 
— Umwandlung von 
Temperatureinheiten 
— Umwandlung von 
Geschwindigkeits- 
einheiten 
— Umwandlung von 
Gewichtseinheiten 
— Umwandlung von 
Energieeinheiten 
— Umwandlung von 
Leistungseinheiten 
Hat man sich entschieden, 
drückt man die entspre- 
chende Zahlentaste, die 
im Menü verlangt wird 
und befindet sich so- 
gleich in der gewünschten 
Routinen. Zuerst wird 
man aufgefordert, den 
Zahlenwert einzugeben 
(die Null wird außer als 
Temperaturwert nicht an- 
genommen). Hat man dies 
getan (wird mit einem 
Pieps quittiert), wird man 
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nach der Einheit gefragt, 
die dem Zahlenwert zuge- 
ordnet werden soll. Nach 
der Bestimmung der Ein- 
heit wird das Ergebnis 

auf dem Bildschirm ausge- 
druckt. Das Ergebnis wird 
in allen Einheiten, mit 
der die jeweilige Routine 


rechnen kann, ausgegeben. 


Schließlich kann man mit 
“]“ die Routine wieder- 
holen, mit “2‘ zurück ins 
Hauptmenü gelangen oder 
mit “3° das Programm 
beenden. 

Aufgrund des klaren und 
übersichtlichen Aufbaus 
des Programms ist es 
nicht schwer, den Pro- 
grammablauf nachzuvoll- 
ziehen. Einige häufig 
wiederkehrende Print-An- 
weisungen und die Input- 
Routine für den Zahlen- 
wert habe ich in Unter- 
routinen untergebracht, 
die mit Gosub aufgerufen 
werden. Nach der Pro- 
grammentwicklung habe 
ich ein Renumber10,10, 
10 durchgeführt, damit 
man das Programm dann 
mit AutolO abtippen 
kann. Das Programm läuft 
auf den Rechnern C16, 
C116 und Plus/4. 


Variablenliste: 
= Auswahl im 

Hauptmenü 

B$-I$ = Auswahl der 
Einheiti in der jeweiligen 
Rechenroutine 
A = eingegebener 
Zahlenwert 
AA = berechneter Wert 

= Sound-Schleife im 
Intro 
Z$ = Tastaturabfrage 
im Intro 
G = Abfrage: nochmal, 
Hauptmenü, Ende 


« 


MATHEMAX C-16 


18 rem mathemax ========616/116/p4 
208 rem (p) commodore welt 

30 rem ===========2===========2===== 
40 rem (c) by thomas weyrauch 

58 rem 

60 rem 

78 rem version 3.5 _ 

88 rem c16/116/plus4 

90 rem ================022===2=202==== 
188 c1$=chr$( 147) :rn$=chr$( 018) 
118 rf$=chr$( 146) :re$=chr$( 028) 
128 ye$=chr$( 158) :b1$=chr$( 9031) 
138 pu$=chr$( 156) :c4$=chr$( 819) 
148 printcl$ 

158 fori=1t028:printc4$; :nexti 


168 printtab( 18) rn$bl$"druecke ein 
e taste !" 

170 getkeyz$ 

188 color1,1,8:color@,2,7:color4,1 
4,3:printcl$ 


wu 


; "re$"mat 
hemax v1.B "b1$" z## pu$ 
2808 print:print" umwandlungen von 
werten einer " 

210 print" physikalischen einheit 

in werte einer" 

228 print" anderen physikalischen 

einheit"bk$ 

238 print:print" energieeinheiten" 
spe 11)"= 1" 

248 printre$"” 


gewichtseinheiten 


= op" 
258 printbk$"” geschwindigkeitseinh 
eiten = 3" 
268 printre$" druckeinheiten"spc( 1 
3)"= 4" ; 
278 printbk$" krafteinheiten"spcl i 
37 8" 
288 printre$" leistungseinheiten 
= 6" 
290 printbk$" zeiteinheiten"spe( 14 
DR 
388 printre$" temperatureinheiten 
= g" 
318 print:printrn$bl$" druecke ein 


e taste von 1 bis 8 
328 


I"rf$bk$ 
geta$:ifa$=""then328 


330 ifa$="1"then43® 

348 ifa$="2"then86ß8 

358 ifa$="3"then1230 

360 ifa$="4"then 1540 

370 ifa$="5"then1940 

388 ifa$="6"then2280 

390 ifa$="7"then2628 

408 ifa$="8"then3082 

410 g0t0322 

250 von use 
430 rem modul 1 energie 


<op? 
<ng> 
<co> 
<pd> 
<ah> 
<kk> 
<ki> 
<jg> 
<po> 
<cd> 
<od> 
<hf> 
<fp> 
<pg> 


<on> 
<hc> 


<hc> 
<mk> 
<he> 
<km> 
<pl> 
<ea> 
<ijie> 
<ae> 
<mb> 
<ip> 
<mn> 
<bn> 
<pl> 
<jb> 
<fe> 
<hb> 
<nh> 
<lk> 
<gk> 
<jk> 
<dd> 
<fp> 
<> 
<gh> 


<gp? 
<hb> 


448 


rem 


458 color4,3,3:printcel$:print" umw 


andlungen von energieeinheiten' 


468 gosub2968 


470 
480 
y 
498 
DH 
528 
ei 
518 


gosub32 
print" 


print" 
print" 
en 
print" 
print" 


print 


print" 
print" 


print" 


getb$:i 


50 
newtonmeter 


wattsekunde 


kilojoule 


’ 


(nm) 


(ws) 


(k3) 


kilowattstunde (kwh) 


kilopondmeter 


kilocalorie 


(kpm) 


(kcal) 


elektronenvolt (ev) 


erg"spc(12)"(erg) = 
joule"spc( 18)"( 5) 


calorie 


fb$=""then588 


(cal) 


ifb$="1"thenaa=a:g0t0788 
ifb$="2"thenaa=a:goto788 


ifb$="3"thenaa=a*1e3:g0t0700 


1 00 


ifb$="4"thenaa=sa*3.6e6:g0t0708 
ifb$=-"5"thenaa=a*9.81:g0t0700 
ifb$="6"thenaa=a*4816.8:g0t0708 


ifb$="7"thenaa=a*1.8e-19:g0t07 


ifb$="8"thenaa=a*( 1/1e7) :goto? 


ifb$="9"thenaa=a:g0t0o?788 
ifb$="®"thenas=a*4.1868:g0t078 


ifg<s>lorg<>2org<>3then328 
4 8 g 


rem 


g0t0588 

gosub3®1 

print” j : "aa 

print" nm y ala 

print" ws ers 

print" kwh ";a8*(2.78*(1/1e 
print" kpm : ";aa*9.102 
print" cal : ":aa*9.239 
print" kcal ";aa*(2.39*( 1/1e 
print" erg ";aa*rle? 

print" kj : "saa/1le3 

print" ev : "saa*( 1/1.6e-19) 
gosub3038 

input" ";g 

onggoto438,188,2928 


MATHEMAX C-16 


378 
358 
andl 


“wu co 


998 
1280 
1818 
8 
1828 
19038 
1048 
299 
1058 
1068 
1878 
1098 
1888 
1298 
1188 
a 
1118 
a/1a 
1120 
afle 
1138 
ad. 
148 
al 
1158 
a/58 
1168 


rem modul 2 gewicht 
rem -------7=- 
color4,4,3:printcl$:print" umw 


ungen von gewichtseinheiten" 
gosub2968 
gosub3B58 
print" gramm"spe( 12)"= 1" 
print" kilogramm = 
print" tonnen"spe( 11)"= 3" 
print" karat"spc( 12)"= 4" 
print" zentner"spc( 18) "= 
print" pfund"spce( 12)"= 6" 
print" englische pfund = 7" 
print" doppelzentner = 8" 
getc$:ifc$=""then998 
ifc$="1"thenas=a:goto1298 
ifc$="2"thenaa=a*1080:g0t0109 


ifc$="3"thenaa=s*1e6:g0t01898 
ifc$="4"thenaa=s*®.2:g0t01890 
ifc$="5"thenaasa*50*1e3:gotol 


ifc$="6"thenaa=a*508:g0t01998 
ifc$="7"thenaa=a*454:g0t01098 
ifc$="8"thenaa=a*108*1e3:goto 


g0t0998 
gosub3018 
print" gramm x "os 


print" 
00 
print" 
6 
print" 
2 
print" 
e3*5B2) 
print" 
0 
print" 


kilogramm -' 
tonnen : = 
karat : a 
zentner Ne 
pfund a ‚a 


englische pfund : ";a 


a/454 

1178 print" 

a/( 1e3*198) 

1188 gosub3B30 

1198 input" ";g 

1200 onggoto868, 180,2928 

1218 

12208 

1230 

1248 

1258 

wandlung von geschwindigkeits- 
einheiten" 

1260 gosub296B 

1270 gosub3B5D 

1280 print" stundenkilometer 

km/h) = 1" 


doppelzentner 


rem 
rem 
rem 


ifg<>iorg<>2org<>3then1198 


color4,5,3:printel$:print" 


modul 3 geschwindigkeit 


um 


( 


<kj> 
<ag? 


<dc> 
<il> 
<lk> 
<dp> 
<je> 
<bn> 
<jl> 
<dg> 
<pj> 
<1k> 
<co> 
<1In> 
<da> 


<fl> 
<jf> 
<od> 


<]f> 
<fe> 
<fe> 


<fo> 
<ip> 
<hm> 
<ce> 
<mg> 
<cm> 
<gh> 
<cg> 
<kd> 
<al> 
<pc> 
<nn? 
<ae> 
<ij?> 
<di> 
<he> 


<pe> 
<id> 


<1h> 
<pb> 
<bm> 


<nd> 


1298 print" 
kn) = 2" 
1388 print" 
sm/h) = 3" 
13180 print" 
mp/h) = 4" 
1328 print" 
gm/h) = 5" 
1338 
m/s) = 6" 
1348 
1358 
1368 
428 
1370 
420 


knoten 


seemeilen 


miles 


per 


geograph. 


t" meter 


pro 


( 
pro stunde ( 
Kuch { 
meile/stun.( 


sekunde ( 


b=12/36:getd$:ifd$=""then 1348 
ifd$="i1"thensa=a*b:goto1422 
ifd$=-"2"thenas=a*b*1.85:goto1 


ifd$="3"thenaa=a*b*1.85:goto! 


1388 ifd$="4"thenaa=a*b*1.6093:got 


01428 


13908 ifd$=-"5"thenaa=a*b*7.42@438:g 


0ot0142®8 
1408 


ifd$=-"6"thenaa=a:g0t01428 


1410 goto1340 

1420 gosus 3018 

1438 print" km/h ":a8*3.6 

1448 print" kn "saarlı/l1. 

85*b)) 

1458 print" sm/h "saas*l1/(1. 

85*b)) 

1468 print" mp/h ":aa*lı/li. 

6093*b)) 

1478 print" gm/h ";aarl 1/(?. 

420438*b) ) 

1488 print" m/s "aa 

1498 gosub3838 

1588 input" ";g 

1510 onggoto1230,180,2920 

1520 ifg<>iorg<>2org<>3then 1588 

1530 ren ee 

1548 rem modul 4 druck 

150 Tan Se 

15608 color4,6,3:printcl$:print" um 

wandlungen von druckeinheiten" 

1578 gosuh2968 

1588 gosub3050 

1598 print" newton/quadratmeter 
(n/m2) = 4 

1608 print" kilopascal"spc( 16) "(kp 

) =. 

1618 print" hektopascal"spc( 15)"{h 

p) a 

1628 print" bar"spc(23)"(bar) = 

4" 

16328 print" milibar"spc( i9)"(mbar) 
= 5" 

1648 print" torr"spc(22)"(torr) 

= 6" 

1658 print" atmospheren"spce( 15)"(a 

t) zug" 


<do> 
<1lm> 
<fg> 
<na> 
<bm> 


<hm> 
<oe> 
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MATHEMAX C-1Ii6 


1668 print" kilopond/quadratcentim 
et. (kp/cm2) = 8" 
1678 print" pascal"spc(28)"(p) 

= g" 
1680 gete$:ife$=""then 1688 
1698 ife$="1"thenaa=a:goto1798 
1700 ife$="2"thenaa=a*1e3:g0t01790 
1710 ife$="3"thenas=a*189:g0t01790 
1728 ife$="4"thenaa=a*1e5:g0t01799 
1730 ife$="5"thenaa=a*188:g0t01799 
1748 ife$="6"thenaa=a*133:g0t01798 
1758 ife$="7"thenaa=a*9.81*1e4:got 
01798 
1768 ife$="8"thenaa=a*9.81*1e4:got 
01798 
1778 
1788 
1798 
1808 
1818 
18208 
1838 
1848 
1850 
1869 
1870 
1888 
18908 
1988 
1918 
1928 
1938 
1948 
1958 rem 
1968 color4,7,3:printel$:print" um 
wandlung von krafteinheiten" 
1978 gosub2968 
1980 gosub3858 
1998 print" newton 
2888 print" kilonewton (kn) = 2" 
2810 print" meganewton (mn) = 3" 
2828 print" centinewton (cn) = 4" 
2030 print" kilopond (kp) = 5" 
2848 print" pond (pl = 6" 
20858 print" dyn (erg/cm) = 7 
2060 getf$:iff$=""then20608 


ife$="9"thenaa=a:g0t01798 
g0to1688 
gosub3012 
print” n/m2 
print" kp 
print" hp 
print" 
print" 
print" 
print" at 
print" 
print" B 
gosub3038 
input” ";g 
onggoto1540,180,2928 
ifg<>lorg<>2org<>3then 19082 
rem 


"aa 
",aarle-3 
"‚aa*le-2 
";aa*1le-5 
";aa*ile-2 
";aa*7.5e-3 
":aa*1.02e-5 
";aa*1.@2e-5 
"aa 


modul 5 kraft 


(n) = 1" 


2070 iff$="1"thenaa=a:goto2158 
2080 iff$="2"thenaa=a*1e3:g0t02159 
2098 iff$="3"thenaa=a*1e6:g0t02150 
2108 iff$="4"thenaa=a*le-2:g0t0215 
(% 

2110 iff$="S5"thenaa=a*9.81:g0t0215 
® 

2128 iff$="6"thenaa=a*9.00981:goto 
2158 

2138 iff$="7"thenaa=a*1.8003e-5:go 
t0o2158 


2148 g0ot02068 


<oi> 


<nl> 
<fg> 
<jf> 
<kc> 
<ef> 
<mh> 
<jd> 
<dl> 


<kc> 


<lc> 
<ma> 
<oc?> 
<ee> 
<gf> 
<kn> 
<am> 
<bg> 
<lg> 
<ne> 
<ha> 
<om?> 
<jb> 
<oc> 
<aj? 
<ci> 
<hd> 
<jc> 
<jj? 
<cb> 


<ff> 
<bc> 
<de> 
<af> 
<mo> 
<oe> 
<ei> 
<ml> 
<eh> 
<kd> 
<cg? 
<do> 
<km> 
<ol> 


<bb> 
<3p?> 
<op> 


<ei> 
<ad> 
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—23— 
2150 gosub3818 
2168 print" n ";aa 
21708 print" kn ";aa*rle-3 
2180 print" mn ";aa*le-6 
2198 print" cn ";aa*le2 
2200 print" kp ":aa*0.102 
2218 print" p ";aa*102 
2228 print" dyn ";38*99969.42 
2230 gosub3B38 
2248 input" ";g 
2258 onggoto1948,189,2928 
2268 ifg<>lorg<>2org<>3then2242 
22908 rem -------------------- --- -- 
2288 rem modul 6 leistung 
2298 rem ------------------------- 
23088 color4,8,4:printcl$:print" um 


wandlung von leistungseinheiten" 
2318 gosub2968 
2320 gosub3858 


2330 print" watt 
= 4" 
2340 print" joule pro sekunde 
(j/s) = 2" 
2358 print" newtonmeter pro sek. 
{nm/s) = 3" 
2368 print" kilowatt"spc( 15) "(kw) 
= 4" 
2378 print" kilopondmeter pro sek. 
(kpm/s) = 5" 
2388 print" kilocalorien pro sek. 
(kcal/s) = 6" 
2398 print" pferdestaerken 
(ps) = 7" 
2408 getg$:ifg$=""then2408 
2410 ifg$="1"thenaa=a:goto2490 
2420 ifg$="2"thenaa=a:goto2498 
2430 ifg$="3"thenaa=a:g0t02498 
2440 ifg$="4"thenaa=a*1e3:g0t02498 
2450 ifg$="5"thenaa=a*9.81:g0t0249 
® 
2460 ifg$="6"thenaa=a*4186.8:g0t02 
498 
2478 ifg$="7"thenaa=a*735.5:g0t024 
928 
2480 g0t02408 
24980 gosub3B1® 
2588 print" w "aa 
2518 print" j/s "aa 
2528 print" nm/s "aa 
25380 print" kw ";aa*le-3 
2548 print" kpm/s ";aa*®.102 
25580 print" kcal/s ";a38*2.39e-4 
2568 print" ps ";a8*1.36e-3 
2578 gosub23038 
2588 input" ";g 
2598 onggoto2288,180,2928 
2608 ifg<>lorg<>2org<>3then2588 
2610 rem ------------------------- 


MATHEMAX C-16 


2648 color4,9,5:printcl$:print" um 


wandl 
2658 
2660 
2670 
2680 
2698 
2788 
2710 
2728 
2730 
2740 
27508 


ung von zeiteinheiten" 
gosub2968 

gosub3B5B 

print" sekunde (s) = 1" 
print" minute (m) = 2" 
print" stunde (h) = 3" 
print" tag (t) = 4" 
print" woche (w) = 5" 
print" jahr (j) = 6" 
geth$:ifh$=""then2738 


ifh$="1"thensa=a:g0t02818 
ifh$="2"thenaa=s*60:g0t0281® 


2760 ifh$="3"thenaa=a*3608:g0t0281 
d 

2770 ifh$="4"thensa=a*864009:g0t028 
18 

2788 ifh$="5"thensa=a*604800:g0to2 
810 

27908 ifh$="6"thenaa=a*31536B88:got 
02818 

2808 g0t02738 

2810 gosub3018 

2828 print" s "aa 

28380 print" m ":aa/60 

2848 print" h "33/3688 

2850 print" t ";aa/86400 

2868 print" w ";aa/604808 

2878 print" j ",88/31536008 
2880 gosub3832 

2898 input" ";g 

2988 onggoto2620,180,2922 

2918 ifg<>lorg<>2org<>3then2898 
2928 color4,14,4:scnclr:end 

e9sB ven a 
2948 rem unterroutinen 

2958 rem ------------------------- 
2968 print 

2978 printbl$" geben sie zuerst de 
n zahlenwert und dann die einh 
eit ein !" 

2988 a=®:printbk$:input" zahlenwer 
t ";a:print:ifa<>dthensound1,808, 1 
d 

2998 ifa=ßthen2988 

3808 return 

3018 printcl$bl$" das sind also in 
den verschiedenen einheiten 
=: print 


3828 return 

3038 print:print" nochmal = 1,-hau 
ptmenue = 2, ende = 3.":print 

3048 return 

3858 print" welche einheit soll fu 
er den einge- gebenen wert gel 
ten ?":print 


<fj> 
<om> 


<bn> 
<ag? 
<id> 
<hl> 
<pc> 
<ni> 
<cj> 
<dc> 
<lo> 
<ib> 
<nj?> 
<go> 


<nj> 
<jl> 
<ae> 


<ha> 
<oe> 
<ee> 
<bp> 
<ck> 
<kg> 
<ic> 
<cd> 
<le> 
<bo> 
<ek> 
<hk> 
<ff> 
<kc> 
<sea> 
<]lm> 
<jc> 
<na> 


<en> 


<pk> 
<cc> 
<bf> 


<ak> 
<dn> 
<in> 


<gf> 


<no> 


—1— 
3868 return <in> 
3078 rem > <ci> 
3088 rem modul 8 temperatur <am> 
3898 rem -------------=- 3--------- <im> 
3180 color4,2,4:printcl$:print" um 
wandlungen von temperatureinheiten 
B <pp> 
3118 print:printbl$" geben sie zue 
rst den zahlenwert und " <oh> 
3128 print:input" zahlenwert ";a:i 
fa>lora<2thensound1!,888, 18:print <ec> 
3138 print"dann die einheit ein" <do> 
3148 gosub30508 <mh> 
3158 print" celsius = 4" <ck> 
3168 print" kelvin = 2" <nc> 
3178 print" fahrenheit = 3" <ai> 
3188 print" reaumur = 4" <lf> 
3198 geti$:ifi$=""then3198 <na> 
3288 ifi$="1"thenaa=a:g0t03258 <in> 
3210 ifi$="2"thenaa=a-293.15:g0t03 
258 <cd> 
3228 ifi$="3"thenaa=(a-32)*(5/9):g 
0103258 <me> 
3230 ifi$="4"thenaa=a*(5/4) :goto32 
58 <on> 
3248 g0t03198 <ch> 
3258 gosub3018 <in> 
. 3268 print" celsius "aa <lb> 
3278 print" kelvin ",aa+t273 
15 <fa> 
3288 print" fahrenheit ":(aa*(9 
/5)) +32 <gi> 
3298 print" resumur "saatld/ 
5) <ob> 
3388 gosub3038 <mp> 
3318 input" ";g <pg> 
3328 onggoto3882,180,2928 <cl> 
3338 ifg<>lorg<>2org<>3then331d <nk> 
3340 rem ========================= cma> 
3358 rem 12277 bytes memory <cc> 
3362 rem 89127 bytes program <af> 
33780 rem 80098 bytes variables <hb> 
3388 rem B8Q0D bytes arrays <nl> 
3398 rem 88348 bytes strings <le> 
3488 rem 02704 bytes free (B) <il> 
3418 rem ========================= cpk> 
SEREREETERZENTE 
ARANHNTINHNHN 
EI LEE 


COMMODORE-WELT 
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 LOTTERIE 


Lotterie wird mit zwei Kartenspielen zu je 32 Blatt 
(Skatblatt) gespielt. Zuerst wird der Mindesteinsatz 
festgelegt. Der Bankhalter verkauft aus einem Skat- 
spiel der Reihe nach an jeden Mitspieler soviele Kar- 
ten, wie dieser wünscht. Der Preis kann das Ein- bis 
Zehnfache des Mindesteinsatzes betragen und wird 
innerhalb dieser Grenzen vom Käufer bestimmt. Es 
können auch Karten zu unterschiedlichen Preisen 
gekauft werden. Es ist aber nicht möglich, eine Karte, 
die zu einem bestimmten Preis gekauft wurde, zurück- 
zugeben oder deren Preis zu ändern. 

Wenn alle Spieler Karten gekauft haben, beginnt das 
Spiel. Der Bankhalter nimmt das gut gemischte zwei- 
te Kartenspiel und legt die ersten zwei Karten neben- 
einander auf den Tisch. Wer eine oder beide Karten 
gekauft hat, erhält den dafür bezahlten Einsatz zu- 
rück. Danach werden die nächsten beiden Karten in 
die zweite Reihe unter die beiden ersten gelegt. Da- 
für wird der doppelte Einsatz ausgezahlt. So werden 
insgesamt acht Karten in vier Reihen ausgelegt. 

Nach jeder Reihe wird erst der entsprechende Gewinn 
ausgezahlt, bevor die nächsten zwei Karten aufge- 
deckt werden. Es wird für jede Reihe der Einsatz 

mit der Reihennummer multipliziert und gewonnen. 
Nach der vierten Reihe wird nur noch eine Karte 
aufgedeckt, der Hauptgewinn. Wer diese Karte be- 
sitzt, erhält dafür den zehnfachen Einsatz ausgezahlt 
und das Spiel ist zu Ende.-Sollten nicht alle Karten 
verkauft worden sein, so verfällt ein eventuell darauf 
fälliger Gewinn zu Gunsten der Bank. 

An diese Spielregel hält sich das Programm Lotterie. 
Nach RUN können Sie zuerst mit ‘J‘ die Spielregel 
auf dem Bildschirm anzeigen lassen. Da diese mehre- 
re Seiten umfaßt, kann mit SPACE weitergeblättert 
werden. Die Eingabe von ‘N“ beginnt das Spiel ohne 
Anzeige der Regel. 

Als erstes will das Programm wissen, wieviele Mitspie- 
ler (ohne den Bankhalter) teilnehmen. Es können 
1-8 Teilnehmer eingegeben werden. Nach Eingabe 
der Anzahl können die Namen der Mitspieler eingege- 
ben werden. Falls nur RETURN ohne weitere Einga- 
be erfolgt, generiert das Programm den Namen, in- 
dem es die Ziffer 1—8 zweimal ins Namensfeld stellt. 
Als letztes vor Spielbeginn ist noch die Höhe des 
Mindesteinsatzes durch Eingabe der Ziffern I, 2 oder 
3 festzulegen, dann geht es los. 

Das Spielfeld wird aufgebaut und der Name des ersten 
Spielers blinkt. Immer der Spieler, dessen Name 
blinkt, kann von der Bank Karten kaufen. Er nennt 
dem Bankhalter seinen Wunsch und dieser gibt die- 


sen über die Tastatur ein. Dabei drückt er je nach 
Höhe des Einsatzes die entsprechende Taste soviel- 
mal, wie Karten verlangt werden. Will der Spieler also 
drei Karten zum doppelten und zwei Karten zum 
zehnfachen Einsatz, so wird die Taste ‘2° dreimal und 
die Taste ‘0° zweimal gedrückt. Die Taste ‘0° entspricht 
dem zehnfachen Einsatz. Sofort nach Tastendruck 
erscheinen die Karten auf dem Spielfeld. Im Allge- 
meinen kann jeder Spieler soviele Karten kaufen, wie 
er will, vorausgesetzt, es ist noch Platz auf seinem 
Spielfeld. Aber man sollte auch für die nachfolgenden 
Spieler noch genug Karten übrig lassen, denn diese 
wollen ja auch am Spiel teilnehmen. Die Höhe des Ein- 
satzes wird in jedem Falle vom Käufer bestimmt, na- 
türlich innerhalb der Grenzen vom Ein- bis Zehnfachen 
des Mindesteinsatzes. Dabei kann der Einsatz für jede 
Karte wechseln, oder auch für alle Karten gleich sein. 
Der Computer speichert alle Möglichkeiten und zahlt 
auch die Gewinne richtig aus. 

Hat der erste Spieler genug Karten erstanden, gibt der 
Bankhalter dies durch Drücken der Plustaste (+) be- 


. kannt, und der Name des nächsten Spielers beginnt zu 


blinken. Wenn alle Karten verkauft sind, oder keiner 
der Spieler mehr Karten kaufen will, beginnt nach 
Druck auf ‘F1‘ das Spiel. Es werden vier Runden ge- 
spielt. Jede Runde muß mit ‘F1‘ gestartet werden. 
Gewinnerrechnung und Auszahlung erfolgen so, wie 
oben beschrieben. Nach der vierten Runde wird nach 
weiterem ‘F1l‘ der Hauptgewinn gezogen. Nachdem 
dieser ausgezahlt ist, können Sie mit ‘F1‘ ein neues 
Spiel starten, oder durch ‘F2‘ bekanntgeben, daß 
kein weiteres Spiel gewünscht wird. Nach diesem Be- 
fehl gibt der Computer die Endabrechnung aus. Hier, 
wie überall, bedeuten rote Zahlen Verlust und schwar- 
ze Zahlen Gewinn. 

Auch auf dem Spielfeld wird während.des Spieles je- 
derzeit der aktuelle Spielstand angezeigt. 

Rechts neben dem Namen wird die Höhe des Einsat- 
zes im laufenden Spiel angezeigt. Unter den Namen 
wird rot der an die oder schwarz der von der Bank 

zu zahlende Betrag ausgewiesen. Daneben er- 

scheint der im laufenden Spiel erzielte Gewinn. 

Im mittleren, grünen Bankfeld erscheint oben rot 
oder schwarz der Verlust oder Gewinn der Bank. Un- 
ten wird die Anzahl der noch unverkauften Karten 
gezeigt. 


Noch einige Hinweise zum Programm: Beim Abtippen 
können alle REM- und Sternzeilen weggelassen wer- 
den. Sie haben keine Bedeutung für den Ablauf. 


130 


 STTERZTE 


1 


ı 
m m = u 5 


9 © 


30 
zuen 
‘40 


nın w 


)/2) 
370 
530 
380 
n530 
398 
30 
400 
410 
420 
430 
440 
450 
460 


lotterie seesb=es=-ccmses=egthh 
(p) commodore welt 


ı (c) by g. kramer 
emsdetten 


basic v3.5 
c16/115/plus4 


em 
gosub224d:rem 
gosub29802:rem 
gosub2478:rem 


definitionen 
spielregel 
abfrage am anfan 


gosub2730:rem anfangsbilcd aufb 


gosub2Q@9:rem eingeben der eins 


gosub69®:rem spiel laeuft 
goto138 


fori=8to31:kali)=B:nexti 
fori=1to8:sz[(i,2)=®:sz[i,1)=1 
ifi-int(i/2)*2=®thensz(i,1)=25 
nexti:vk=®:cs=15 
fori=1toan:z=sz(i,2):c=sz(i,1) 
cz=4:printchr$( 38) ;:gosub 1378 
printna$(i)" ":forj=1t099:next 


cz=4:getz$:ifz$<>""then31ß. 
gosub 137@:printchr$( 18)na$li)" 


printchr$( 146) :ifvk=32then538 
forj=1t099:next j:goto258 
forj=175to0184:pokebi+j,16®:nex 


ifz$=chr${ 133) then598 
ifz$="+"then538 
ifz$<"B"orz$>"9"then2?® 
j=1:b=val(lz$) :ifb=&thenb=19 
cz=3+int((i-1) /2)*24/int((ant1 


ife=13thenc=1:z=z+3:ifan>6then 


ifc=37thenc=-25:z=z+3:ifan>&the 


ez=cz+z:cs=c:ifz=6andan>4then5 


ifz=-9andan>2then538 
vk=vk+1:ifvk>32then53® 
gosub1548:g05ub 1378 
kala)=b*18+i+cp:printk®$ 
gosub 1378:printz$ 

gosub 137@:printz1$; 
ifz>Bandan>4then50ß 


<fn> 


<op> 
eng> 
<kd> 
<em> 
<ah> 
<nl> 
<ga> 
<ig> 
<jp> 
<hp> 


<be> 
<ob> 


<ef> 
<ki> 
<1lb> 
<öc> 
<lp> 
©1153 
<jk> 
< im? 
<ch> 
<le> 
<ha> 
eng> 


<jk> 
<hd> 


<mm> 
<ga> 
<cd> 


<en> 
<kl> 
<mc> 
<di> 
<io> 


<30> 
<30> 
<de> 


<oc?> 
<kd> 
<oj> 
<kf> 
<kk> 
<fg> 
<53> 
<cm> 
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478 
488 
498 
sad 
518 
528 
538 
i 
548 
558 
568 
578 
588 
592 
680 
6108 
= 
6208 
632 
rn 
E40 
658 
668 
672 
658 
698 
788 
718 
728 
738 
748 
758 
760 
778 
788 
798 
898 
818 
820 
838 
840 
858 
868 
878 
880 
898 
9880 
918 
928 
938 
9428 
9508 
960 
972 
988 
998 


gosub1378:printk1$; 
ifan>6orz>3andan>2then5ßd 
gosub1378:printk2$; 
geli}=geli)+b*ei:gb=gb+b*ei 
gs(li)=gsli)-b*ei:gosub 1688 
e=c+t2:c5=-15:g0tc25B 
sz{i,ijJ-c:sz[i,2)=z:cs=15:next 


ifvk<32then240 

zag="" 

fori=1t018 

z2$=chr$i 32) +z2$ 

next 

z$="f1 = spiel" 
cz=4:printchr$( 30) ;,:gosub 1378 
printz$:forj=1t099:next j!cz=cz 


gosub 1378:printcr$z2$co$ 
getz!$:ifz1$=chr$( 133) thenretu 


j-999999rcz=3:fori=1to4:aa=1.1 
gosub1548 
z2$=2$:23$=21$ 
b=relr( 1) 
c=a:gosub1548:cs=16:g0sub1378 
fb=relr()) 
color1,b,6 
printk2$; 
color1,fb,6 
printk®$ 

gosub 1378 
eelor],b,& 
printz2$; 
color1,fb,6 
printz$ 
gosub1378 
color1,b,6 
printz3$; 
color1i,fb,6 
printz1$ 
gosub137B 
color1,b,6 s 
printk1$; 
color!,fb,6 
printk1$ 

gosub 1370 
color1,b,6 
printk2$; 
color ,‚*b,:b 
printk2$ 
b=kala) :kala)=j:z=cz 


<kj? 
<ci> 
<el> 
<np> 
<io> 
<dc> 


<bg> 
sap> 
<mg? 
<fg> 
<nf> 
<30> 


.<dm> 


<fn> 


SC? 
Na E> 


<gä? 
<pn> 
<1h> 
<ja> 
<og> 
<ac> 
<de> 
<jh> 
<og> 
<lc> 
<ml> 
<mc?> 
<ce> 
<id> 
<ak> 
<gp> 
<pa> 
<]lb> 
<fg> 
<pp> 
<ef> 
<cc> 
<dm> 
<ja> 
<bi> 
<oh> 
<en> 
<ng> 
<go> 
<cj? 
ng? 
<ll> 
<fd> 
<ki> 
<ep> 
<ph> 
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12080 
19018 
1028 
1030 
1048 
1058 
1268 
1078 
1088 
1098 
1108 
1118 


a=kalc) :kalc)=j:gosub1958 
getz$:ifz$<>chr$( 133) then12108 
cz=z-2:nexti 
ces=18:gosub1542:gosub 1378 
printk®$'gosub 1379 
printz$:gosub1378 
printz1$:g0sub1378 
printk1$:gosub 1378 
printk2$:a=kala):i=10 

gosub 1958 
cz=24:c5=15:g0osub1378 
printchr$(380)cr$" f2 = ende"; 


1128 cz=28:gosub 1370 

1138 printchr$( 150) cr$"f1=weiter " 
1140 getz$:ifz$=chr$( 133) then121® 
1150 ifz$=chr$( 137)thenprintcc$:go 
to1238 

11608 fori=1t099:nexti:cz=20:gosub! 
378 

1178 printchr$(3®)cer$" fFi=-weiter" 
1188 cz=24:c5=15:g0sub1378 

1198 printchr$( 150)cr$"f2 = ende " 
1200 fori=1t099:nexti:goto118® 
1218 fori=1toan:gwli)=®:geli)=B:ne 
xti 

1228 vk=®:return 

1238 printtab(12)"lotte ri e" 
c1$ 

1248 printtab( 13) "endabrechnung"c! 
$ h 

1258 fori=1toan:a=gsli):gosub 1429 
1268 color1,1 

1270 ifgsli)<@thencolor1,3,6 

1288 printtab( 11jna$(i)z8c1$ 

12980 nexti:a=gb:gosub142B 

1388 colori,i 

1318 ifgb<dthencolor!,3,6 

1328 printtab( 11) "bank "2$; 
1330 end 

SAN meer 
1358 cursor setzen 

1300 Bee 
1378 poke2335,2z2:poke2036,05:5y5cu 
1388 cp=180*(c2*4ß+cs) :coz=cz+ti:ret 
urn 

18390: Pe ea 
1400 betragsfelder aufbereiten 
1410 ------- 222424 
1428 ifa<dthena*ra*-1 

1438 z$=str$(int(a/1982)) 

1448 z$=right$(z$,len(z$)-1) 

1450 z$=right$l" "+26,5) 

1468 ifright$(str$(la) ,2)<"19"then! 
490 

1470 z$=z2$+", "+right$(str$la},2) 
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1480 
1498 
1528 
1518 
1522 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1600 


1612 


98) 
1620 
1638 
1640 
16508 
1668 
1670 
1688 
1699 
= 
1788 
1710 
1729 
),14) 
1738 
1748 
1758 
1768 
1770 
1788 
1790 
1380 
1818 
1828 
1838 
19848 
1858 
1868 
2 
1878 
1888 
1898 
1988 
19318 
928 
1938 
1942. 
1958 
1968 
1978 
1988 
1932 


return 
z$=z2$+",O"+right$(str$(la), 
return 


a=int(rnd( a) *32) 
ifa=aathen15708 
ifkala)<jthen 1590 
a=-at1:ifa>31thena=® 

g0t01558 

aa=a:fb=int(a/B) :z$=fa$( fb) 
z21$=bi$(a-fb*B) 
z$=chr$({ 98) +z$+chr$( 32) +chr$( 


z1$=chr$( 98) +z1$+right$(z$,2) 
iffb>ithencolor1!1,3,6:return 
color‘ , Iareiturn 


i=i-1:k=sint((an+1)/2):fb=144 
ces=B:ifi-int(i/2) #2=1thencs=2 


cez=1+24/k*(int(i/2)) 
g0sub137B:a=geli+t1):gosub1420 
a$=left$(na$fli+1)+tright$( z$,6 


eolor!,1:printa$ 

a$f=-right$( z2$,1) 
pokebi+t4ß*oz+tcos-26,asc(a$) 
a=-gs(i+1):ifa<@thencolor1,3,6 
gosub1428:21$=z$ 
a=gwli+1):gosub1420:g0sub 1370 
a$=z1$+chr$( 144) 
a$=left$la$+trightä( z$,7), 15) 
printa$ 

a$=right$(z$,1) 
pokebi+49*cz+tcs-26,asc(a$) 
a=gb:color1,1 
ifa<®thencolor1,3,6 
gosub1420:cz=1:c5=16:g05ub137 
Brintzbicstor? ,1:1>I#1 
a=32-vk:z$=right$(str$(la),2) 
pokebi+979,asc(left$(z$,?)) 
pokebi+989,asc(right$( z$,1)) 
return 


d=-i:ifa=8then 1972 
gosub2158 
ifb=2then2928 
ifd=1!8then2220 
a=-b:gosub2159 


<cj?> 
<ob> 
<fb> 
<no> 
<mco> 
<3a3> 
<fm> 
<gb> 
<gb> 
<le> 
<mp?> 
<pl> 
<kl> 


<bm> 
<ho> 
<em> 
<lc> 
<jm> 
<gf> 
<bp> 
<fd> 


<jc> 
<ik> 
<dl> 


<am> 
<kl> 
<bm> 
<ck> 
<ib> 
<hg> 
<do> 
<chb> 
<ok> 
<nf> 
<og> 
<dm> 
<kl> 
<jh> 


<nf> 
<hn> 
<do> 
<og> 
<df> 
<ii> 
<ag> 
<ec> 
<oe> 
<gc> 
<lh> 
<gp> 
<om> 
<ac> 


EBTTERIE 


mm .5 
o 


ı nn a WR 
so 


ın 


a a a mn mm nn 
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2260 
2290 
2280 
2298 
2308 
2318 
2328 
2338 
2340 
2358 
2368 
2370 
2388 


c=c+t41+bi 
ifpeek(c)=660rpeek( co} =32thenc 


fori=1to10+d*3 
pokec,peek{ c}and1!2? 
c=c+48:pokec,peeklc)and!? 
c=c-48:pokec,peek(c}or128 
ce=c+48:pokec,peek(c)ori2B 
ce=c-4Bd:nexti:return 


ce=int(a/18B) :a=a-c*10B:gosub? 


esint(a/12) :i=a-c*10 
ife=dthenc=1B 
a=c:gwli)=gw(li)+tateitd 
gesli)-gsli)+ta*rei*d 
go=-gb-arei*d:gosub168B:return 


bi=3072:fa=2048:cu=655208 
dimka( 31) ,na$( 8) ,fa$( 3) ,bi$(? 


dimgs(8) ,ge(8) ,‚gw(8) ,‚sz(8,2) 
ce1$=chr$( 17) :c2$=chr$( 145) 
c3$=chr$( 29) :cA$=chrf$( 157) 
ch$=chr${ 19) :cc$=chr${ 147) 


fa$glB)="X":Ffagli)="A" 
fa$gl2)="S":fag(3)="z" 
bi$(9)="7":bigl1)="8" 
bi$(2)="9":digl2)="x" 
bi$(4)="b":bi$(5)="d" 
bi$(6)="K":bi$(7)="a" 


er$=chr$( 18) :co$=chr&( 146) 
color®,2:color4,1 
ka$=chr$( 117) +chr$( 96) +chr$( 9 


6) +chr$( 185) 


2398 


k1$=chr$( 98) +chr$( 32) +chr$( 32 


)+chr$( 98) 


2408 


k2$=chr${ 186) +chr$( 96) +chr$( 9 


6) +tchr$( 129) 


2410 
24208 
24308 
2440 
2450 
2468 
2478 
8" 
2488 


keyt,chr$( 133) 
key&,chr$( 137) 
return 


printee$tab{11)’!lotteri 


printc1$c1$c1$ 


<da> 


<bj> 
<in> 
<kd> 
<gc> 


<kp> 
<dl> 
<dl> 
<pp> 
<fe> 
<fm> 
<nn> 


<ip> 


<an> 
<ke> 


<km> 
<bb> 
<gm> 
<ah> 
<mo>r 
<ec> 
<kl> 
<gh> 
<ad> 
<ib> 


<mj> 
<jh> 
<op> 
<nn> 
<ah> 
<il> 
<gm> 
<ih> 
<fo> 
<fm> 
<gd> 
<pf> 
<jl> 


<mc> 
<pb> 


<im> 
<jm> 
<oa> 
<jn> 
<je> 
<0J> 
<kj> 


<np> 
<eam> 
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printtab( !B) "wieviele spieler 


printc1$c1$ 

aut=-"*" 

fori=1to8B 

aß$=chr$( 32) +a0$ 

next 

geta$:an=val(a$) 
ifan<tioran>8then255ßB 
fori=1toan:a$=str$l(i)+str$li) 
printi". name": :inputa$ 
na$li)=left$(l a$+adE,9) 
nexti:printc1$ 
printtab( 18) "einsatz dm 2,081 


printtab( 12)"oder dm 8,18 (2) 


printtab( 12)"oder dm 1,88 (3) 
geta$:ei=valla$) 
ifei=-1then269® 
ifei=ötherei=18:goto2598 
ifei=3thenei=189:g0t02698 
goto2648 

return 


z$="" 

fori=-1t01® 

z$=z$+chr$( 32) 

next 

printoc$; 
printchr$( 144) chr$( 18) z$z$z$z 


zi$=z$+left$(z$,5) 
z1$=z21$+chr$( 30) +z$+chr$( 144) 


fori=1t0o23:printz1i$; :nexti 
fori=968t0999 

pokebi+ti, 168:pokefa+ti,® 
next 
cz=9:cs=12:g0sub 1378 
Brint" Lotterie 
jrint((an+1) /2):fori=Btoan-1: 


u 


i=i+1:g0sub36B8:i=i-1:nexti 
srei:gosub1428 
cz=21:c58=16:g0sub1370 
print"einsatz=":gosub 13708 
printright$(z$,4)+"- ":asei 


gosub1379:gosub1428 
printz$:return 


spielregel 


<ko> 
<dn> 
<pa> 
<00> 
<cm> 
<gn> 
<nk> 
<df> 
<eb> 
<oe> 
<mi> 
<lk> 


<dm> 
<hn> 


<fl> 
<ia> 
<ei> 
<dk> 
<ak> 
<ol> 
<kh> 
<pc> 
<mi> 
<k1> 
<ik> 
<ja> 
<bm> 
<ch> 
<ml> 


<eh> 
<bb> 


<ee> 
<pg> 
<kl> 
<fc> 
<mi> 
<je> 
<kk> 


<og> 
<ml> 
<of> 
<de> 
<gj? 


<nd> 
<ei> 
<o00> 
<je> 
<id> 


- 8 TTERZE 


printcoftab( 12)"spielregel?(j 


getz$:ifz$="n"thenreturn 

3200 ifz$<>"j"then2992 

3018 printec$tab( 12)" lotter 

i e "chr$( 17) 

3028 print"zuerst geben sie die an 

zahl der spieler" 

3038 print"ein (1-8). 

d die namen." 

3848 print"sie koennen bis neun st 

ellen eingeben. "chr$( 17) 

3058 print"darauf geben sie eine zZ 

iffer (1-3) ein," 

3868 print"um den mindesteinsatz f 

estzulegen. sie" 

30? print"koennen spaeter bis zu 
18-fach setzen. " 

3080 getz$:ifz$=""then3239 

30898 printer$tabl 12)" lotter 

ie "chr$( 17) 

3109 print"jetzt koennen die 

er ihren einsatz" 

3118 print"machen. der spieler, de 

ssen name blinkt" 

3128 print"drueckt eine der tasten 
1 =- 8 und kauft" 

3138 print"damit 

nem satz von 32" 

3149 print"karten. 
je nach der ge-" 

3158 print"drueckten taste 

E91) bis Zehnfäch" 

3168 print"(®). je nach einsatz is 
t nachher auch " 

3170 print"der gewinn ein- bis zeh 

nfach. n 

3188 print"sie koennen 
ten kaufen, bis" 

3198 print"ihr spielfeid voLll ist. 
doch denken 

3228 orint"auch daran, 

hnen die anderen" 

32190 print"spieler auch noch ihre 

einsaetze taeti-" 

3228 print"gen wollen. wenn sie ke 
ine karten mehr" 


in 
3232 print"kaufen. wollen, 


anschliessen 


RS 


eine karte aus ® 


“ 


der einsatz ist 


weitere kar 


sie" 


nach i 


EA 
593553 


e + ein. darauf” 
3242 print"ist der naechste dran.w 
enn alle spieler" 
3258 print"ihre einsaetze getaetig 
t haben, aber es" 

’ 
3268 print"sind noch nicht alle 


karten verkauft,” 


<oh> 
<od> 
<ig> 
<og> 
<ck> 


<fg> 
<ob> 


<io> 


<fk> 
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3278 print"koennen die mitspieler 
noch nachkaufen." 

2288 print"sind alle 232 
kauft, oder wind" 

3298 print"die fi-taste gedrueckt 
‚ koennen keine" 

3388 print"karten mehr gekauft wer 
den - eine runde" 
3319 print"beginnt." 
3328 getz$:ifz$=""then3320 
3338 printcce$tab( 12)" 1 
ie "chr$( 17) 

3348 print"betaetigen 
fi-taste." 

3358 print"nun werden 
eiten kartensatz" 
3368 print"die ersten 
aufgedeckt. . 
3378 print"wer eine der beiden kar 
ten gesetzt hat," 
3388 print"erhselt 
(1-12) zurueck. 
3398 print"nach weiterem druecken 
der f1-taste er-" 

3488 print"scheinen weitere 2 


karten ver 


sie nun die 
aus einem zw 


zwei karten 


seinen einsatz 


” 


kart 


en, bis vier mal" 

3412 print"zwei gewinne ausgezahlt 
wurden. der ge-" 

3428 print"winn errechnet sich jew 
eils aus einsatz" 

3438 print"mal reihennummer fuer 

die entsprechen-" 

3448 print"de karte. in der dritt 


en reihe also 3-" 

3458 print"facher einsatz. 
wird mit fi der“ 

3458 print"haupgewinn gezogen. daf 
ver wird der 19-" 

3478 print"fache einsatz ausgezahl 
E,* 
23438 


zuletzt 


print"nun ist eine runde 'zu e 
nde. die naech- " 
3498 print"ste runde bepinnt, wenn 
sie f1 dJruesken" 
3500 getz$:ifz$ 
35180 printcs$tab[ 12)" Lotter 


3, e "ehrt 17) 


3528 print"noch ein paar arklaerun 
gen zum bild: "ehr$t 17) 
3539 print"in feld erscheint 


jedem 
links oben der" 
3548 print"anfangs eingegebene nam 
@e. wurde jedoch " 
3558 print"kein name eingege 
hen sie die num-" 


3568 print"mer 


GT 
D 
& 
w 
iD 


des spielers zweima 


<ec> 


<ba>, 


<gc> 
xne> 
<hf> 
<mi? 
<hc> 
<fa> 
<30> 
<fh> 
<ln> 
<ok> 
<dh> 
<hce> 
<fc> 
<cf> 
<dd> 
<oa> 


<ck> 


OT TERNIE 


daneben zeigt" <1b> 
578 print"der bil Hi die hoeh 
ih { ter <pf> 
za) er sfen 
B <ho> 
en Feine 
<b> 
runde <la 
26 
vo <bg> 
36 
gt <nb> 
36 
q <cp> 
36 <eo> 
36 prirt"der 
spielfeld oben " <pf> 
S6E2 print' (schwarz) od 
er verlust <nm> 
cc [n53 n 
| <se> 
= ; see | 
verkau-" I&> 
23692 int en sing = = 
spass beim spiel"ch gg» 
23708 print"alles in o . <ho> 
378 getzbiifzge""then <ki> 
3728 return <ı1l> 
3730 rem =====-=e------eeenmenenen con? 
3742 rem 12277 bytes memory <bce> 
3758 rem 089711 bytes program <kf> 
3769 rem 88245 bytes variabies <pm> 
3778 rem BB551 bytes arrays <1ld> 
3788 rem BD4A36 bytes strings <ah> 
2798 rem 01334 bytes free (B} <fc> 
3808 rem =======-==-==2=2=2=2===2==28=2e== Chr 


ROBERT 


Robert, der Roboter, hat den Auftrag erhalten, auf 
dem Planeten „Grimpel‘“ Steinberge anzustreichen. 
Dafür hüpft er von Steinberg zu Steinberg, wobei er 
den jeweiligen Berg anmalt, was sich an dessen verän- 
derter Farbe erkennen läßt. Aber die Einwohner des 
Planeten, die „Nippelzipps“, wollen ihn daran hin- 
dern und hüpfen von den Bergen herunter. Robert 
darf sie nicht berühren oder von einem Steinberg her- 
unterspringen, sonst verliert er ein Leben. Von Level 
zu Level erhöht sich die Anzahl der Nippelzipps um 
einen. 

Ein Tip: Wenn Robert auf dem Steinberg steht, auf 
welchem er auch zu Beginn eines Levels erscheint, 
können die Nippelzipps ihm nichts anhaben und 
man kann eine Pause einlegen. 


NERERZERERENY 
es 
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PMOBERT 


182 rem r 
110 rem ( 
128 rem = 


138 rem 
148 rem 
158 rem 
168 rem b 
178 rem c 
162 rem = 
198 pokeS 
288 fori= 
next 

210 data 
‚218 

228 data 
9,8 

238 deta 
„6 

248 date 
‚218 

258 data 
11 

268 data 
8 

270 data 
Q8,237 
288 data 
9,32 

298 data 
20% 

308 data 
45 

318 data 
5,132 

328 data 
7 

338 data 
8,133 

348 data 
‚198 

3580 data 
36B u$=ch 
378 a$(®%) 
388 a$tl 1) 
398 a$l2) 
400 a$(3) 
418 a$(4) 
420 8$(5) 
438 3$(6) 
448 forj 


ad+1:next 
458 gosub 


468 hi=5R: 
498 a=x:s= 


yaaıaxrd 
488 ifjo= 
490 ifjo= 


cC-16 


obert ============-=-===016 
p) commodore welt 


(c} by robert dillinger 


neussess ’ 


ssce: v3.8 
16/116 plus4 


6,59:poke55,B:clr 
1638t01745:reada:pokei,a: 


133,221,133,223, 169,0, 133 


133, 224,169,7,133,216, 169 


133,217,169,5, 133,228, 164 


185,210,6, 164,219, 10,144, 
170, 169,85, 145,221,173,59 
145,223,138,200,198,220,2 
230,218,198,217,240,25,16 
145,221,173,59,5,1458,223, 
169,32,145,221,173,59,5,1 
223,280, 132,219,24,144,19 
219,192,0,16,18,152,41,12 
133,219, 165,221,24,105,12 
221,133,223,144,2,230,222 
216,208, 163,96 

r$( 94) :1$=chr$( 95) 
zuß+"n"+uß+1l$+uß+1$ 


="qqgpqd" 

="gagpgd" 
=uß+"g"+uß+ugruß+"d" 
="tgaptn" 

’nggprz" 
="an"+u$+1l$+"gl"!ad=1746 


=ßto6:fori=1to6:x=8*(asc(m 
id$(lo$( 5) ,i, 


1))and31) :pokead,x:ad= 
i:nextj 

2870 

g0t021508 
y:jo=joy( 1) :ifjo=8theny= 


6theny=y+t3:x=x-3 
2theny=y-3:x=x+3 


« 


ROBERT €=16 


5008 ifjo=4theny=sy+3:x=x+3 
518 ifx>39orx<Bory>21orpeek( 3072+4 


O*y+x+48) =93thengoto942 

528 chari,x,y,ye$+"VW":chari,x,yt1 
RR 

538 ifa<>xthenchar!,a,s," ":char! 
PS Pe = . 

548 bi=peek( 3072+40*y+x+80) :ifbi=9 
2thengoto578 

558 ifbi=32thengoto948 

568 goto620 


570 sound1,608, 18:chari,x,y+t2,bl$+ 
z0$+z0$:sc=sc+t1:char1,19,1,cy$+str 


$( sc) 


588 u=su+1l:ifu=28thengoto1358 

598 rem ------ == onen 
608 rem gegner 

610 rem -------------------------- 
628 forn=itole:ifm(n)=®thenm(n)=1: 


r(n)=int(rnd(B)*6) :flag=1 

638 ifflag=Ithenflag=®:onr(n)goto6 
70,690,758,778,798:ifr(n)=Bthengot 
0658 

648 onr(n)goto680,700,760,780,808: 
ifr({n)=®thengoto66® 


658 c(n)=18:v(n)=13 

668 g0to718 

678 c(n)=7:v(n)=16 

688 g0to718 

698 ce(n)=4:v(n)=19:g0ot036® 

7008 goto71® 

718 sound2,c(n)*498,3:ifv(n)>39orc( 


n)>24thencharl,v({n)-3,c{n)-3," ": 
m{n)=B:nextn:goto47® 

728 color1,3,5:char!,v(n),c{n),yo$ 
+a8$:charl,v({n)-3,c{n)-3," 
=c(n)+3 

730 vCn)=v(n)+3:ifc(n)=22thenm(n)= 
B:charl ,v{n)=3,19," * 

740 nextn:ifn=le+ithengotod478 

758 c(n)=4:v(n)=19:g0t0988 

768 goto818 

778 c(n)=?:v(n)=22 

7880 goto818 

798 c(n)=18:v(n)=25 

800 gotoB1B 

818 sound2,c{n)*40,3:ifv(n)<Borc(n 
J)>24thenchari,v({n)+3,c(n)-3," "rm 
(n)=®:nextn:g0t0478 

820 color1,3,5:char1,v{n),c{n),yo$ 
+sa$:chari,v(n)#3,cLn)-3," "sc(n) 
=c(n)+3 ER 

838 v(nr)=v(n)-3:ife(n)=2ßthenm( n)= 
B:charv(n)+3,17," " 

848 nextn 

858 ifn=le+tithengoto4?8 

868 color1,3,5:charl,v({n),c{n),yo$ 
+tsa$:c(n)=c{n)+3:v(n)=v(n)+3 


"zolh) 


<ba> 


<hb> 
<mn?> 
<ho> 


<ml> 


<gf> 


878 ifn=le+tithengoto4?7® 

880 nextn 

898 g0t047B 

988 color!,3,5:chari!,v({n),c(n),yo$ 
+a8$:c(n)=c{n)+3:v(n)=v{n)-3 

918 ifn=le+ithengoto478 

928 nextn ö 

338 g0t0478 

gan Fein ne 
958 rem tot 

960: ren Fre 
978 scnelr 

988 li=li-1:ifli=®thengoto1B68 

998: colord.,,3,3:c0Lord,3;3 


1988 color1,2,7:char1,9,12,"robote 
rs remaining:":printli 
1818 forf=1to1® 
10828 sound3,8008,18 
12830 sound!,int(rnd(B)*280) ‚5:soun 
d2,int(rnd(0)*2), 18 
18408 nextf 
1850 g0t01982 
108680 rem 
1978 
10888 rem 
1290 en$=g5$+a5S$+tygS+tyg$+tyg$tleft$ 
(qr$,27)+yq$+" "+yg$ 
1108 en$=en$+tleft$(lgr$,29)+yq$+" g 
ame over "+yqg$ 
1110 en$=en$+left$lgr$,27)+yg$+" 
"+yq$ 

1120 en$=en$+left$(gqr$,27) +q5$+g5$ 
+yqb+tygbtyg$ 
1138 colorß,1:color4,1 
1148 char1,0,22," 

um zum titelbild ® 
1158 print" druscke Bf1B 


”, 
’ 


uccl 


1168 print" 
eckzugelangen"; 

11798 g=int(rnd(2)*15) +2 
1188 q=int(rnd(B) #27) 
1198 weint(rnd(B) #17) +1 
1200 color1i,g,5 

1218 chari,q,w,en$ 

1220 sound1,208,int(rnd( 2) #5) :ifsc 
<hithensound2, 10,3 

12830 €91071,2,7 

1248 ifsc>=hithengosub 1278 

1258 getke$:ifke$="U"thengoto1298 
1268 g0t01178 

1278 hi=sc:color1,2,7:char1,80,0,fl 
$+" new high score"+fo 
$:sound2, 808,5 
12880 return 
1298 rem 
1308 
1318 


JCCK zuru 


ROBERT &-16& u Sue 


22 vol&:flag=® <af> "+02$ <fl> 
32 sc=d <ko> 1778 ifflag=2thenflag=®:return <ee> 
>20 goto2150 <kb> 1780 g=g+3:ifg=40theniff=?thenf=3: 
358 rn Pe <ig> g0t01800 e, <pe> 
-Sd rem level geschafft <pf> 1798 ifg=4@thensound2, 10, 108: iff=3 
37 a ee <kl> thenf=?7 <ml> 
>58 scenclr <1k> 1808 ifg=40thensound3, 880, 100:g=®: 
:93@ le=le+1:ifle<9thenwl=le <oh> goto1638 <ib> 
28 ifle>9thenle=9:wl=wl+1 <11> 1810 g0sub 1878 <ae> 
+18 color®,1:color1,2,?7:color4,1 <ad> 1828 ifg> 10Qdtheng=37 <ek> 
228 char1,12,6,"goto next level" <bd> 1838 getke$:ifke$="U"thengoto1980 <bp> 
238 r=int(rnd(®)*15)+2:colori,r,4 <ma> 1848 ifke$="I"thengoto2610 <hd> 
‘248 char1,0,9,zb$+z1$+z1$+z1$+z1$ 1852 sound1,g*18,28:sound2, 1,28 <eg> 
-21$+z1$+z1$+zq$ <ke> 1860 g0t01788 <pe> 
"158 char1,80,10,z4$+" level "+z3$: 1878 sound!,g*5,28:sound2,1,28:fla 
srintwl-1 <gf> g=2:co=co+1:ifco=17thenco=2 <ao> 
‘468 char!,8,11,zr$+z2$+z2$+z2$+z2 1880 color1,co,4 <cf> 
3+22$+22$+z2$+zt$ <dk> 1898 char1,8,13," (c) copyright 1 
‘478 1=int(rnd(B)*15)+2:color1,1,4 986 by dillingersoft" <hf> 
:ifl=rthengoto1478 <el> 1999 print:printc4$" written 
‘488 char1,28,9,zb$+z1$+z1$+z1$+z1 by robert dillinger" <jk> 
s+z1$+z1$+z1$+zq$ <ci> 1912 gosub1948 <hp> 
‘498 char1,28,10,z4$+" level "+z3$ <nh> 1928 gosub 1698 <mk> 
15988 printwl:char1!,28,11,zr$+z2$t+z 1930 return <lb> 
2$+22$+z2$+22$+z2$+z2$+Zt$ <bg> 1948 forgq=16t024 <nc> 
1510 color1,8,5 <Ik> 1958 chari,d,q," 
1528 forf=8t035:char1,f,13," VW":c . <db> 
barı #14," <gf> 1960 nextq <be> 
1538 sound!,f*2,5:sound2,int(rnd( 1998 return <ab> 
)#3) ,18:nextf <jo> 1980 rem ---------------- 77 <nf> 
1548 restore 1568: forf=1to0? <od> 1998 rem spielplan <al> 
15580 readno:sound1!,no*1®, 18:sound2 apa van nn <kj? 
‚5S,2:nextf <ei> 2810 color®d,1 <jp> 
1560 data11,14,11,14,12,16,14 <gh> 2020 color4,! <fa> 
1578 g0t01988 <ki> 2838 senclr:w=B:q=B:forf=2Bto2step 
1580; fen mer ann ns ann <an> -3:w=w+1:q=g+t3 <ko> 
1598 rem titelbild <pi> 2848 p=0:fort=itow:chari,f+t*6-8,q 
aBd rem Fre <kb> +2,a$:nextt:nextf <nd> 
1618 scenelr:f=7 <an> 2058 printhe$cy$" lives:"; <dd> 
1628 colorß,1:color4,1 <pn> 2068 printli <ci> 
1630 color1,f,4 <ap> 2870 char1,1,1,"level:" <me> 
1648 gosub 1940 <jf> 2088 printle <id> 
1658 poke2834,128:sys163® <bm> 2898 char1,28,0,"high-score:" <ah> 
1668 char?,8,11," 2188 char1,28,1,str$(hi) <ii> 
2 <kp> 2118 char1,17,8,"score:" <cp> 
1678 gosub 18708 <gp> 2120 char1,17,1,str$(sc) <cf> 
1688 color1,8,6:char1,9,1,"dilling 2130 x=19:y=21:u=8:vol8:flag=1 <nc> 
ersoft presents" <fk> 2140 goto47®8 <pj? 
1698 color1,2,6 <na> DISN Lem em <aa> 
1788 char1,10,18,fl$+"UCCI":print <ch> 2160 rem anfang <od> 
1710 printtab( 10) ;fl$"BfiB = spiel DHTE rem ee nn <cft> 
start" <cg> 2188 scenclr:vold <no> 
1728 printtab( 18) ;fl$"JCCK" <ei> 2198 restore255®:n=B:forf=ito4:rea 
1730 printtab( 10) ;FI$"UCCI" <pp> dco$ <ad> 
1748 printtab( 18) ;fl$"Bf2B = spiel 2280 forg=!tolen(co$)step2:by$=mid 
anleitung" <ca> $(co$,g,2) <fa> 
1758 printtab( 18) ;FI$"JCCK" <fl> 2210 by=dec(by$) <hc> 
1768 char1,0,24," 2228 poke15328+n,by:n=n+1:nextg:ne 
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0 000000001UUUUUTEEEEEEEELLLIIILUUUUOUIO nn 


ROBERT C-16 a 


xtf 

2230 poke65298, peek( 65298) and251 
2240 poke65299,68 

2258 sysdec( "3be®") 

2268 restore23908:forf=86*8t096*8-1 
:readby 

2278 poke15360+f,by:nextf 

2280 forf=97*8t098*8-1:read by 
2298 poke15360+f,by:nextf 

2300 forf=99*8t0182*8-1:read by 
2318 poke1536B+f,by:nextf 

2320 a$=b1$+"Z"+lg$+yn$+tyn$+bl$+ym 
$ 

2338 le=1:1li=3 

2340 keyl,"U":key2,"I" 

2358 g0t01588 

2360: rem FF Hrn 
2378 rem 
2388 rem ----------------------- -- 
2398 data?,5,7,7,1,63,47,39 

2408 data224,160,224,224,128,252,2 

44,228 

2410 data35,35,35,6,12,12,12,252 

2420 data196,196,196,96,48,48,48,6 
Ss 

2430 data®,8,1,3,15,63,255,0 

2440 dataß,0,128,192,240,252,255,08 

2450 dataß,255,255,255,255,255,255 
1% 

’ 

2468 data32,31,25,25,31,31,32,64 
2470 data4,248,152,152,248,248,4,2 
2480 data255,255,255,255,255,255,2 

55,255 

2490 dataß,255,255,255,255,255,255 
[%) 

’ 

2500 data255,255,255,255,0,0,0,08 
2510 data248,248,240,240,240,240,2 

40,248 


2520 data15,15,15,15,15,15,15,15 
2538 rem --------- 7 nn 
2540 rem maschinencode 

2558 rem (zeichensatz auslesen) 
2560 rem me ee 


2598 data"a202bd82dB949B3c" 

2580 data"bd9Rd194AR3db daR" 

2590 data"d29d093ebdAQd439d" 

2600 data"®03fe8dBe5s6nR" 

2618 rem ------------------------- 
2628 rem 
2638 rem ------------------------- 
2648 scnclr 

2658 char1,16,;9,f1$+1g$+"robert"+f 
0$ 

26608 char1,3,3,g3$+"robert, ein hi 
lfsroboter, "+yeg+"vW" 

2678 print:printg3$" der auf ma 
lerarbeiten "yeg"'XxYy" 

2680 printg3$" spezialisiert ist, 


muss auf" 

2698 print" 
alle" 

2708 print" 
en" 

2718 print" aber einige nippelzi 
pps "re$yo$aa$ 

2728 printg3$" wollen ihn daran 


hindern." 
2730 print:print"du musst robert h 


elfen und ihn von einem" 
2748 print"steinberg zum anderen s 
teuern, damit er" 

2758 print" den jeweiligen steinb 
erg anstreichen" 
2768 print" 


dem planeten grimpfl 


steinberge anstreich 


kann. 


2778 print"er darf natuerlich nich 
t mit den nippel-" 

27808 print" zipps zusammenstosse 
n oder von den" 
2798 print" 
allen." 

2808 print:print" 
oystick in port 1" 
2818 color1,2,7 
2828 char1,12,24,rn$+"taste drueck 
en"+rf$ 

2830 getkeyke$ 

2848 g0t01580 

2858 rem nachspann =============== 
2360 rem farbcodes/steuercodes 
2870 c4$=chr$( 817) :rn$=chr${( 8018) 
2888 he$=chr$( 219) :re$=chr$( 928) 
2898 c3$=chr$( 229) :b1$=chr$( 031) 
2988 F1$=chr$( 138) :Fo$=chr$( 132) 
2918 c2$=chr$( 145) :rf$=chr$( 146) 
2928 1g$=chr$( 153) :g3$=chr$( 155) 
2938 ye$=chr$( 158) :cy$=chr$( 159) 
2948 rem zeichensatz/graphik 

2958 zQ$=chr$( 161) :z1$=chr$( 162) 
2968 z2$=chr$( 163) :z3$=chr$( 164) 
2970 z4$=chr$( 165) :zb$=chr$( 172) 
2988 zu$=chr$( 187) :zr$=chr$( 188) 
2998 zt$=chr$( 190) :ym$=chr$( 219) 
3000 yn$=chr$( 228) :yo$=chr$( 221) 
3010 yq$=chr$( 223) :aa$=chr$( 255) 
3828 rem zeichenfolgen 

3238 for q=1 to 48 

3048 qr$=qr$+c3$:next q 

3850 for q=1 to 4:q4$=q4$+ya$:next 
3868 y5$=g4$+ya$ 

3078 return 

3080 rem ====================22==== 
3298 rem 811007 bytes memory 

3120 rem 099171 bytes program 

3118 rem 008392 bytes variables 
3128 rem 800169 bytes arrays 


plattformen f 


steuerung: j 


<jk> 
<jd> 
<ca> 
<ej? 
<ag> 
<bn> 
<kd> 
<hp> 
<el> 
<pl> 
<mp > 
<1j> 


<pi> 
<1k> 


<mj> 
<oa> 
<pl> 
<np> 
<lg> 
<pc> 
<1j> 
<kh> 
<mf> 
<je> 
<dl> 
<fk> 
<el> 
<cd> 
<fl> 
<bl> 
<ml> 
<km> 
<30> 
<hc> 
<ld> 
<äag> 
<hk> 
<el> 
<bk> 
<ks> 
<op> 
<ab> 


ROBEAT Deis 


- 22 rem 000008 bytes strings <fd> 
-'<2 rem 091756 bytes fre(®) <bb> 
Sa rem ======-==2=2=22 === ====2======= <]h> 


Puzzleworid 


Ein neuer Name macht kein neues Spiel, genau- 

»enig wie eine geänderte Grafik oder ein etwas 
:n derer Programmablauf. Das Entscheidende ist die 
Srielidee. Und hier bietet Puzzleword wirklch et- 
»=s Neues. 

Puzzleword entstand unter dem Aspekt, ein 
-<ues Spielprinzip zu bieten, welches auch auf lan- 
:= Zeit Interesse weckt. Daher stellt “Puzzleword” 
=ın ungewöhnliches Buchstabenspiel dar, welches 
=ıne Art Mischung zwischen Interlingua und Schie- 
fax ist. Es werden vor allem die Tüftler und Stra- 
"sen unter den Usern auf ihre Kosten kommen. 
“Puzzleword” ist sowohl für Einzelspieler als auch 
"ur Gesellschaften geeignet. Obwohl dieses Spiel in 
reinem Basic verfaßt wurde, ist daraus kein erkenn- 
sarer Nachteil entstanden. Wie aus dem Listing er- 
sichtlich ist, war es sogar nötig, mit dem Ausdruck 
Jer Buchstaben in verschiedenen Helligkeitswerten 


den Spielablauf zu verzögern, um den Buchstaben- 


tausch während der Spielzüge sichtbar zu machen. 
Da sich der Spielablauf kurz nach dem Start von 
selbst erklärt, sei Ihnen wärmstens empfohlen, 
“Puzzleword” schnell zu laden und zu probieren. 
Wie wäre es mit einem kleinen Wettkampf unter 
Freunden? 


PROGRAMMBESCHREIBUNG 


Nach Festlegung der Ausgangswerte in den Zeilen 
180 und 190 beginnt das Programm mit der Titel- 
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LISTING 


darstellung (GS 1250 und GS 1090), sowie der An- 
leitung (GS1280) in Zeile 210. 

Wurde das INPUT in Zeile 1410 beantwortet, 
folgt die Spielfelddarstellung (GS 770) und die 
Markierung des 1. Spielers (GS 890). 

Im nachfolgenden Steuerungsteil (Z. 230-280) 
wird der erste Joystick nach den 4 Richtungen und 
FIRE abgefragt: 

Die Richtungsabfrage löst folgendes Muster aus: 

(Erläutert am Beispiel Joy (1) = 3 in Zeile 230) 

— Verzweigung zum Unterprogramm 340 

— Dort Frage nach Spielfeldüberschreitung und 
evtl. RETURN 

— Kursor-Löschung (GS 1070) 

— Erneute Kursor-Darstellung (GS 1060) an neuer 

Position 
— Abfrage auf Randposition (GS 630) und evtl. 

Ermittlung eines neuen Buchstaben durch GS 

610; 

andernfalls erfolgt ein Buchstabentausch (Z.660- 

680). 

— Kursor-Löschung (GS 1070) 

— Kursor-Darstellung (GS 1060) an neuer Position 
— RETURN 

— Aktualisierung des Spieler-Kontos (GS290) 

— Erneuter Sprung in die Joystick-Abfrage 


Der Druck auf die FIRE-Taste (Z. 270) läßt das 
Programm nach Abruf der Kennmelodie (GS 1530) 
ins Suchprogramm verzweigen (GS 430). 

Dort wird das Spielfeld über die Variable Y% () 
zunächst horizontal (Z. 430-460), dann vertikal (Z. 
470-500) abgetastet und innerhalb des Unterpro- 
gramms 560 mit den Auswahlwörtern (codiert als 
X% ()) verglichen. Ist das Ergebnis positiv (W grös- 
ser als 0), wird ein neues Wort im Unterprogramm 
550 ermittelt. Danach sorgt das Unterprogramm 
520 für das Löschen der alten Runden- (GS 880) 
und Spielermarkierung (GS 870). Nach Ermittlung 
der neuen Rundenzahl und Spielernummer erfol- 
gen beiden Abrufe nochmals zur Aktualisierung. 
Danach folgt das RETURN zur Joystickabfrage. 

Sollte die Rundenzahl 5 überschreiten (Z. 530) 
wird das Ende aufgerufen (GT 1420). 


Variablenliste 
Dimensionierte Variablen: 


S% (5) = Spielerpunkte 

X% (3,8) = Auswahlwörter codiert 

Y%(8) = Vergleichsvariable (Spielfeld/Auswahl- 
wörter 


Undimensionierte Variablen: 


A,B,C,D = Universelle FOR-NEXT-Variablen 

H = Horizontale Position 

HS = Highscore 

K = POKE-Zahl für Bildschirmspeicher/ 
Kursor-Position 

L = Luminanz (Farbhelligkeit) 

P = Variable für Pausenschleife 

RU = Rundenzahl 


Bitte lesen Sie weiter auf Seite 142 


PUZZLEWORD 


18 rem puzzleword==============016 
28 rem (p) 88/87 commodore welt 

308 rem =======================2==== 
AB rem (c) by peter bergen 

58 rem hildesheim 

68 rem 

78 rem basic v3.5 

88 rem c16/116/plus4 

98 rem ===============2=========2=2= 


188 gosub 1598 

118 data”autobahn"”, "scheitel”,"tab 
lette”,"haarnetz","freibier"” 

128 data"”tagebuch”, "wildbret”," joy 
stick”, "computer", "putzfrau"” 

138 data"”trennung”,"dreizehn", "fox 
trott","narzisse”,"gasthaus" 

148 data”farbfoto", "sdhatten"”, "obs 
twein” ,"badetuch"”, "hochzeit" 

158 data"”paranuss”,"werkzeug”, "abe 
ndrot" ,"liebelei"”,"recorder" 

168 data"kuhstall”,"senftube"”, "mas 
chine”,"postbote”,"stehpult” 

178 data”holzkopf"”,"clubraum”, "wit 
zbold"”,"himbeere”,"flugzeug"” 

188 a=srnd(-ti) :dims%(5) :dimw$( 3) :d 
imx%( 3,8) :dimy%( 8) :hs=1888 

198 v=15:h=19:kK=3691:ru=1:fora=1to 
4:5%la)=B:next 

288 color, 1:scncir 

218 vol5S:gosub1258:gosub1898:gosub 
1288:g0sub778:sp=1:gosub898 

228 rem steuerung 

238 ifjoy( 1)=3thengosub348:gosub29 
Bd 
248 
8 
258 ifjoy( 1J)=1thengosub388:gosub29 
268 
ß 
278 ifjoy( 1)=128thengosub 1538:gosu 
b438:gosub 1548 

288 goto238 

298 s% sp)=s%( sp) +1:gosub328:ifs%( 
sp) >999thengoto1428 

388 return 

318 rem punktanzeige 

328 char1,6,sp*2+13,ye$:printusing 
"#44" ;s%Csp) :return 

338 rem kursorverschiebung 

348 ifh=27thens%( sp) =s%L sp) -1I:retu 
rn 

358 gosub 1878:h=h+1:gosub1B6B:k=k+ 
1:gosub638:gosub1878:h=h+1:k=k+1:g 
osub1868:return 

368 ifh=11thens%[ sp) =s%( sp) -1:retu 
rn 

378 gosub1878:h=h-1:gosub 1B68:k=k- 


ifjoy( 1)=7thengosub368:gosub29 


ifjoy( 1) =Sthengosub488:gosub29 


<ip> 
<bc> 
eng> 
<pk> 
<nb> 
<ah> 
<nl> 
<ki> 
<jg> 
<fe> 
<hh> 
<]f> 
<hg> 
<ko> 
<1j> 
<em> 
<of> 


<po> 


<ad> 
<ia> 


<ep> 
<hp> 


<al> 
<fk> 
<fo> 
<nn? 


<bi> 
<dn> 


<em> 
<oi> 


<fk> 


<ni> 
<hm> 


<oi> 


<op? 


<ho> 


140 


1:gosub63ß:gosub 1878:h=h-1:k=kK-1:g 
osub1868:return 

388 ifv=7thensX( sp) =s%l sp) -1I:retur 
n 

398 gosub18978:v=v-1:gosub1B6B:k=k- 
AB: gosub?7BA:gosub 1878: v=v-1:k=k-4Au 
:gosub1B6B:return 

488 ifv=23thens%( sp)=s%[ sp) -1:retu 
rn 

418 gosub1078:v=1V+1:gosub1B6B:k=k+ 
48:gosub?BBß:gosub 1078: v=v+1:k=k+40 
:gosub 1868:return j 

428 rem auswertung 

438 b=3482 

448 fora=1to8:b=b+2:y%([a)=peek(b) + 
64:next:gosub56® 


458 ifw>Bthengosub55B:gosub52Q:ret 
urn 

468 b=b+64:ifb<3978thengoto448 

478 b=3324 

A488 fora=1to8:b=b+8B:y%l a)=peek(b) 
+64:next:gosub568 

498 ifw>Bthengosub55B:gosub52B:ret 
urn 

588 b=b-638:ifb<3342thengoto488 
Si® return 

528 gosub888:gosub878 

538 sp=sp+t1:ifsp>sbthensp=1:ru=ru+ 


1:ifru>5thengoto1428 

548 gosub898:gosub88ß8:return 

558 gosub1B18:gosub92B:gosub99RB:re 
turn 
568 

578 

588 

598 


w=8:ford=1to3:wz=8:fora=1t08 
ify%la)=x%(d,a)thenwz=wz+1 
next:ifwz>?thenw=d 

next:return 

688 rem neuer buchstabe 

618 gosub 1850:gosub84d:gosub 1848: r 
eturn 

628 rem rand vertikal 

638 ifv=7thenb=kK+4B:d=peek(k+4B) :g 
osub61@8:return 

648 ifv=23thenb=k-48:d=peek( k-4B):: 
gosub61®8:return 

658 rem buchstabentausch vertikal 
668 wi=peek(k-4B) :w2=peek( k+4B) 
678 b=k-48:d=w1:gosub105B:b=kK+4B:d 
=w2:gosub1858:b=k-AB:gosub1A4B:b=k 
+48:d=w1:gosub 1848 

688 return 

698 rem rand horizontal 

788 ifh=11thenb=k+1:d=peek(k+1):go 
sub61ß:return 

718 ifh=29thenb=k-1:d=peek(k-1) :go 
sub6iß:return 

728 rem buchstabentausch horizonta 
1 

738 wi=peek(k-1) :w2=peek(k+1) 


<bj> 


<eh> 


<ml> 


<ji> 


<ko> 
<cc> 
<fc> 


<1h> 


<aa> 
<jb> 
<fg> 


<mk> 


<oi> 
<gk> 
<in> 
sbi> 


<ad> 
<bb> 


<fp> 
<fb> 
<af> 
<cm> 
<ik> 
<ha> 


<fe> 
<gg> 


<1In> 
<lo> 


<]1l> 
<bg> 


<pc> 
<od> 
<ih> 
<oj> 


<jj> 


<ch> 
<dh> 


PUZZLEWORD 


>28 b=k-1:d=wi:gosub1B58:b=k+1:d=w 
2:g0osub 1B5B:b=kK-1:gosub1848:b=k+1: 
<=w1:gosub1848 

"5ß return 

58 rem spielfeld 

78 gosub838:color1,7,6:b=3482 

88 fora=1t08:b=b+2:gosub84B:gosub 
1858:gosub 1Bß4Bß:next:b=b+64 

938 ifb<3978thengoto7BB 

522 fora=18t022:char1i,1,a,ye$+trn$+ 
left$(b1$,9):char1,29,a,l1eft$(bl$, 
!B)+rf$:next 

818 gosub86B:gosub8BB:char1,38,15, 
rn$+"auswahl:"” 

828 forw=1t03:gosub92B:gosub998:ne 
»t:gosub1ß6B:return 

538 color1,3,3:fora=7to23:char1,11 
a, PERRREEEEeEeEEREE" onext:return 
846 letd=int(rnd( 1)*26) +1:return 
858 rem anzeigen 

868 gosub9BB:forsp=1to4:gosub32B:n 
ext 

878 fora=1t04:char1,2,3#2+13, ye$+tr 
n$:print;a;c1$".:":next:return 

888 char1,38,12,ye$+rn$+"runde:":c 
har1,36,12,ye$+rf$:printusing"##"; 
ru:return 

898 char1i,2,sp*2+13,ye$:print;sp;c 
1$"”.":return 

988 char1,2,12,ye$:print;rn$"hs:": 
char1,6,12,ye$:printusing”###" ;hs: 
return 

91B rem wortwahl 

928 restore:z=int(rnd{ 1) #35) +1:for 
a=1toz:readr$:next:goto98B 

938 fora=1toBß:v$=mid$lw$flw),3,1):x 
%(w,a)=asc(v$) :next:return 

948 rem wort-ueberpruefung 

958 wx=B:fora=1to3:ifa=wthengot 097 
B 
96B 
978 
0938 
988 ifr$=w$(w)thengoto928:elsew$(w 
)=r$:goto95B 

998 forl=1t06:gosubiß2ß:next:retur 
n 

1888 rem wort-darstellung 

1818 Forl=6to1lstep-1:gosub1ß2B:nex 
t:return 

1828 color1,7,1:char1i,36,w*2+15,rn 
$:print;w$(w) ;rf$:forp=1to5®:next: 
return 

16368 rem buchstaben-darstellung 
1848 forl=14toitßstep1i6:pokeb-1824 
‚l:pokeb,d:next:return 

1856 forl=126t014step-16:pokeb-1862 
4,1:pokeb,d:next:return 


ifw$( 3) =w$(w)thenwx=1 
next:ifwx=1thengoto92B:elsegot 


<pe> 
<gp> 
<nh> 
<ad> 
<fh> 
<cöa> 
<gc> 
<be> 
<kj> 
<kh> 
<fd> 
<ei> 


<mb> 


<of> 


<fn> 
<ca> 
<bc> 
<em> 
<cf> 


<do> 
<jb> 


<pg> 
<bn> 


<cm> 
<ol> 


<lf> 
<pc> 


<jm> 
<af> 
<hg> 
<ae> 


<dn> 
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1868 color1,3,7:chari,h,v,"*":retu 

rn 

1878 color1,3,3:char1i,h,v,"*":retu 

rn 

1888 rem ueberschrift 

1898 chari,8,1,rf$+"” "+z1$+zr$+rn$ 

+" "+rf$+”" "+rn$+” "+rf$+”" "+rn$+” 
1188 printrf$z1$z21$"” "rn$"” "rf$zi$ 
zi$” "rn$"” "rf$”" "rn$b3$rf$" "zi$z 
1$rn$" "rf$" "; 

1118 printrn$b2$rf$”" "rn$"” "rf$zt$ 

z1i$zr$rn$"” "rf$" "zi$zr$rn$"” "rt$” 
"zi$zr$ 

1128 chari,8,2,rf$+”" "+rn$+” "+rf$ 

+" "+rn$+" ” 

1138 printrf$"” "rn$” "rf$"” "rn$b2$ 

rf$zt$rn$zt$b2$rrf$zt$; 

1148 printrn$zt$"” "rf$"” "rn$b3$rf$ 
" "rn$b3$rf$" "rn$b2$rf$"” "; 

1158 printrn$” "rf$” "rn$"” "rf$” ” 

rn$"” "rf$" "rn$"” "rf$"” "rn$” "rf$” 
"rn$" "rf$” ” 

1168 char1,8,3,rf$+"” "+z1$+rn$+zt$ 

+" "+rf$+”" "+rn$+" "” 

1178 printrf$+”" "+rn$+"” "+zb$+rf$+ 

zb$+trn$+b2$+zb$+rf$tzb$trn$+"” "; 
1188 print" "rf$" "rn$b3$rf$"” "zi$ 

rn$b2$rf$” "zöfrnfzefrf$"” "rn$" "r 

2 a 

1198 printrn$" "rf$"” "rn$" "rf$" " 

zq$rn$za$” "rf$”" "rn$” "rg" " 

1288 char1,8,4,rf$+" "+rn$+b3$f+rf$ 

+zq$+rn$ 

1218 printzi$rf$zb$rn$” "rf$" "rn$ 

zi$gzig” "rf$” "; 

1228 printrn$z1$z1$" "rf$" "rn$zi$ 

z1$" "rf$" "rn$zi$zi$” "zrfrf$zb$z 

a$rn$zt$"” "rf$za$; 

1238 printrn$zi$rf$zb$rn$” "rf$"” ” 

rn$" "rf$” "rn$”" "rf$" "rn$zi$rtf$ 

1248 return 


1258 color1,15,6:fora=dto2:char1,® 
‚a,rn$+bl$:next 

1268 return 

1278 rem anleitung 

12868 char1,1,8,wh$:print; "versuche 
n sie durch verschieben des” 

1298 print”hellroten sternchens (j 
oystick port 1)” 

1388 print"mit so wenig zuegen wie 
moeglich eines" 

1318 print”der 3 ausswählwoerter zu 
bilden." 

1328 print”steht des siernchen zwi 
schen 2 buchsta-" 

1338 print”ben, wercen diese verta 


<cd> 


<om> 


<oe> 


<bl> 


<im> 


<ho> 
<mp> 
<mh> 


<ol> 


<le> 
<me> 


<ki> 


<dh> 
<os> 
<ca> 


<]1l> 


<fe> 
<gg> 
<eh> 
<bk> 
<ep? 
<el> 
<di> 
<od> 
<ij> 
<ae> 


<]n> 


PUZZLEWORD =-3- 


uscht; steht es” <mp> 1718 for q=1 to 48 <ji> 
1348 print”am spielfeldrand, entst 1728 ql$=ql$+c1$:b1$=b1$+" " <la> 
eht neben dem” <cl> 1738 next q <hh> 
1358 print"sternchen ein neuer buc 1748 return <dd> 

hstabe." <fg> 1758 rem ========================= <jp> 
1368 print”wurde ein wort gebildet 1768 rem 12277 bytes memory <11l> 
‚ erfolgt durch" <mi> 1778 rem 86229 bytes program .<kk> 
1378 print">fire< Ätn austausch in 1788 rem 88231 bytes variables <ip> 
der wortauswahl," <pg> 1798 rem 88144 bytes EREESES <bg> 
1388 print"sowie ggf. der spielerw 1888 rem 88439 bytes strings <fo> 

echsel." <ck> 1818 rem 85234 bytes fre(B) <nc> 
1398 print"das spiel endet nach 5 1920 Fam =Sesmununnunnnnenneeneunen db 
runden, oder wenn” <fi> 

1488 print"mehr als 999 zuege bbno —Do3£5LLLLTWTTTTTTTTTTTTITTTTTTTTTTTT 

etigt wurden. ” <fh> Fortsetzung von Seite 139 

1418 gosub1518:poke239,8:printc4A$c sp = Spielermarkierung 

4$”"wieviel spieler"; :inputsb:poke2 V = Vertikale Position 

822 ,8:scenclr:return <fb> W = Wortmarkierung 

1428 gosub1528:fora=1tosb <co> Wi = Variable für Buchstabentausch 

1438 ifs%( a) <hsthenhs=s%( a) <bf> Ww2 = Variable für Buchstabentausch 

1448 next:gosub988 <dh> Wwz = Zahl der richtigen Feldbuchstaben in 
1458 b=17:gosub838:fora=8t022:char Vergleich zu den Auswahlwörtern 
1,b,a,1g$+"ende":ifb=17thenb=18:el Wwx = Markierung für Doppelnennung bei 
seb=17 <le> Auswahlwahlwörtern 

1468 next:color1,3,3:char1, 17,16," Z = Zufallsvariable 


FRERT+CAH$rHcAFtleftslq1l$,4)+"**r%" <ai> 


Dimensionierte Strings: 
1478 char1,12,17,1g$+">fire<=neust 


art” <pa> W$(3) = Auswahlwörter 

1488 ifjoy( 1)=128thengoto198 <oe> 

1498 g0t01488 <hm> Undimensionierte Strings: 

1508 rem sound <ch> 

1518 restore1558:fora=1to1ß:readb: RS = Vorabversion für WS () 
reade:soundl,b,c:next:return <1d> v3 = Abgriff (MID$) von W5 () 
1528 restore1568:fora=1to?:readb:r 

eade:soundl,b,c:next:return <pp> 

1538 restore 1578: fora=1to3:readb:r 

eade:soundl,b,c:next:return <nc> 


1548 restore1588:fora=1to3:readb:r n 
eade:soundl,b,c:next:return <kd> INFORMATION 
1558 data169, 18,345, 18,453,28,169, 
19,345,18,453,28,169,198,345, 18,453 


‚38,596, 48 “ig? - ll |\l 


1568 data453,20,383,190,345, 10,383, 


18,345, 18,262,28, 169,48 <cp> 
1578 data739, 10,798, 10,643, 18 <hh> 
1588 data643,18,798,18,739, 10 <if> 
1598 rem nachspann =============== chj> 


1688 rem * farbcodes/steuercodes * <bh> 
1618 wh$=chr$( 995) :cA$=chr$( 217) <aj? 
1628 rn$=chr$( 818) :rf$=chr$( 146) <de> 
1639 1g$=chr$( 153) :c1$=chr$( 157) <bp> 
1648 ye$=chr$( 158) <In> 
1658 rem *** zeichensatz/graphik * <1k> 
1668 z9$=chr$( 161) :z1$=chr${ 162) <ah> 
1679 zb$=chr$( 192) :zq$=chr$( 187) <ic> 
1689 zr$=chr${ 188) :zt$=chr$( 199) <kj> 
1693 rem **FHttittt zeichenfolgen * <cg> 
17938 b2$=" "+" ":53$=b2$+" " <jp> 
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ES KOMMT! 
DAS 
GROSSE 
COMMODORE 
C16/P 4- 
TEST-JAHRBUCH! 
HARD- & SOFTWARE, 
PERIPHERIE 
UND ZUBEHÖR 
IM TEST 
DER GROSSE 
SAMMELBAND 
RUND 150 SEITEN 
AB 27. NOVEMBER 
AN IHREM KIOSK 
ODER IM BAHNHOFS- 
BUCHHANDEL 


Cu 


Jetzt gibt es 
Deutschlands erste 
Commodore-Zeitschrift 
Programm-Diskette 
für Ihren 64er und 128er! 


COMMODORE 


DISC 


C64/ 
0120 u 


Bis zu 180 kB Programme | 
ohne Abtippen! 
COMMODORE DISC 
An guten Kiosken und 
im Bahnhofs-Buchhandel 
COMMODORE DISC 


